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Introduction 



Each chapter in this book is designed to explore a significant 
aspect of home energy consumption. Chapters begin with a 
discussion of the methods and merits of a particular kind of 
energy analysis. Following that is a computer program 
translated into versions for each of these popular home 
computers: VIC, Atari, Apple, TI-99/4A, Commodore 64, 
Radio Shack Color Computer, PET/CBM, and OSI. 

The programs will analyze and report suggested 
alterations or improvements to windows, insulation, and 
other areas of your home where a small investment of time 
or money now may yield a significant future savings in your 
energy dollars. 

Once the computer has information on your 
geographical area, your current expenses, and details about 
your house itself, it can provide specific, objective 
projections. Have your heating costs been increasing by 30% 
or more each year? Are you considering storm windows, a 
clock thermostat, more insulation, caulking, weather- 
stripping, or other defensive measures against the upward 
spiral of utility costs? 

Since everyone's home is different and there are great 
variations in climatic conditions in the United States, it is 
often difficult to determine which of many alternatives is the 
best way to go about reducing energy consumption. These 
programs, utilizing the particular characteristics of your 
house together with the climate in your area, report 
projected savings for the homeowner. The effects of a great 
variety of different energy-saving improvements at locations 
anywhere within the contiguous 48 states are analyzed and 
forecast in complete, understandable reports. 

You can use these graphs and reports to look at 
projected savings, together with costs and the current 
economic outlook to decide if each approach meets your 
criteria for a worthwhile investment. 



Here's a major personal financial problem which can 
directly benefit from the speed and power of your personal 
computer. It's one of the fastest ways to make the computer 
pay for itself. When friends and neighbors find out what 
you're up to, don't be surprised if they ask you for a home 
energy analysis too. In most cases, these programs can result 
in very impressive savings. 

The Apple and PET/CBM versions are the same as the 
Commodore 64 versions except in those cases ("Energy Plot" 
for example) where graphics variations required 
individualized programs. In some cases ("Home Heating And 
Cooling" for example), a lengthy series of DATA statements 
is identical in each computer's version. When this is the case, 
simply add the separate DATA list to your computer's 
program. If you are using an 80-column screen such as the 
CBM 8032, some programs contain information in REM 
statements to make adjustments for a more pleasing screen 
format. All programs are clear and well-commented. With 
the exception of "Energy Plot," the screen formats are 
essentially interchangeable and do not rely on graphics or 
computer-specific video techniques. There are notes in each 
chapter about any special handling required for particular 
computer models. 

Before typing in any of the programs in this book, check 
the Appendix for an explanation of the conventions used in 
listing special keyboard characters. 
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Energy Data Base 



Note: This program creates files of energy usage data for future 
reference and for use by other programs in this book. The OSI, Atari, 
Apple, and Color Computer versions store the files to disk. The VIQ 
PET/CBM /64, and TI versions create data files on tape. 

Keeping track of energy use and cost is an integral part of any 
serious attempt at conserving energy cost. I have been doing this 
for several years by simply graphing my energy use on a chart, 
using my electric and natural gas bills. This is quite adequate to 
determine when I am reducing my energy use. 

However, unless I also keep track of the cost, I am seeing 
only part of the picture. If I were to start keeping track of the cost 
on a chart, there would undoubtedly be other factors (such as cost 
per unit of energy or energy used per degree day) that I would also 
want to plot, and if I were not careful, I would end up plotting so 
many different factors that this would become a burden and I 
would likely forget the whole idea. 

This data base program allows both energy use and cost to be 
saved on disk or tape and recalled by other programs, so that I 
don't have to constantly enter the same data in various programs. 
The data are saved by month and year, and additional data can be 
added as the need occurs. The dimensions for the energy (E) and 
cost (D) are made to be variable so that the program can be run on 
systems of varying size. The program has provisions to create and 
edit files called "NATGAS," "ELECT," "COAL," "OIL," and 
"WOOD." Should you desire to add other utilities, such as water, 
then simply remove one of the unused utilities from lines 380-420. 

The program has five commands: L = list data, I = input 
data, G = get data from disk or tape, S = save data to disk or tape, 
and E = edit data (includes adding an additional year). 

Adding Additional Years 

When you enter "edit", a year of data will be displayed. If you 
desire to edit a different year, simply answer "N" to the prompt "Is 
line to be edited shown". Once the year desired is shown, answer 
with "Y", and the program will prompt you for the month desired. 
The program requires an exact match with the string for the 



month, so be sure to enter the month as abbreviated in the 

program. ^ 

If you want to enter an additional year of data, answer "N" to ^ 
each existing year as it is displayed. The program will add one to 

the number of years of data (N) and will go into input mode when w 

you answer that you want to add to the number of years. If you ^ 
plan on adding an additional year of data to the data base, you 

must allow for this addition when answering the prompt at the ^ 

beginning of the program for the number of years. ^ 

Reference: ^ 

Retelle, Bob. PEEK (65), vol. 2 (October 1981), p. 14 (P.O. Box 347, ^ 
Owings Mills, MD 21117). 

Table. Sample Run — Electric Usage Data« 

ENERGY DATA BASE 

# YEARS FOR DATA BASE (DEFAULT=5)? 3 ^ 



(L,I,G,S,E)? I 



1) NATURAL GAS 

2) ELECTRICITY 

3 ) COAL w 

4) OIL 

5) W00D ^ 
CHOOSE ONE ? 2 

BEGINNING YEAR 1979 W 
ENDING YEAR 1981 

w 

YEAR ELECT ELECT W 

1979 USAGE COST 

JAN 750 30.19 ^ 

FEB 827 33.16 w 

MAR 718 31.86 

APR 728 31.64 

MAY 875 35.95 ^ 

JUNE 1192 50.92 



JULY 1768 76.92 

AUG 2043 86.1 

SEPT 2166 88.1 

OCT 664 30.99 

NOV 775 33.58 

DEC 777 34.39 

YEAR ELECT ELECT 

1980 USAGE COST 
JAN 714 37.54 
FEB 679 34.02 
MAR 673 31.34 
APR 716 31.53 
MAY 861 40.75 
JUNE 1576 81.07 
JULY 1980 102.36 
AUG 2043 105.62 
SEPT 1761 92.2 
OCT 1261 67.49 
NOV 775 41.48 
DEC 955 46.43 

YEAR ELECT ELECT 

1981 USAGE COST 
JAN 777 38.26 
FEB 846 43.21 
MAR 804 45.14 
APR 933 52.96 
MAY 1098 62.33 
JUNE 1570 107.8 
JULY 1980 141.03 
AUG 2046 137.08 
SEPT 1638 109.91 
OCT 1370 91.47 
NOV 605 37.84 
DEC ■ 833 53.83 
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Program 2* VIC Version^ 

10 REM ENERGY DATABASE VIC VERSION 

30 R$=CHR$ (13) : PRINT" {CLEAR} ENERGY DATA BA 

SE{03 DOWN}" 
40 N=5:PRINT"# YEARS FOR DATA BASE" : PRINT"DES 

IRED,"; :INPUT"DEFAULT=5";N 
50 DIMM$ (12) ,E(N,12) ,D(N,12) 
60 F0RI=1T012:READM$ (I) :NEXT:PRINT 
7 DATAJAN, FEB, MAR, APR, MAY, JUNE, JULY, AUG, SEPT 

, OCT, NOV, DEC 
80 PRINT" (L, I, G,S,E) {DOWN}" 
90 GETY$ :IFY$=""THEN90 

100 C=ASC(Y$) :Y=(C>68)+(C>70)+(C>72)+(C>75)+(C 
>82) :ONABS(Y)GOSUB130,320,350,270,510 

110 GOTO80 
120 REM EDIT 

130 PRINT" {CLEAR} EDIT" : F0RI=1T0N :GOSUB480 : FORM 
=1T012:PRINTM$ (M) ;TAB(6) ;E(I,M) ;TAB(1 
3);D(I,M) 

140 NEXT 

150 PRINT" {D0WN}IS LINE TO BE EDITED SHOWN?": 

PRINT" <Y> OR <N>" 
160 GETY$:IFY$=CHR$ (78 ) THENNEXT :GOTO220 
170 IF Y$<>CHR$ (89)THEN160 

180 INPUT"MONTH TO EDIT" ; A$ : F0RJ=1T012 : IFM$ ( J ) 

<>A$THENNEXT 
190 PRINT" {UP}EDIT MONTH OF " ; : PRINTM$ ( J ) ; E ( I , 

J) ;D(I,J) :INPUT"ENERGY USAGE" ; E ( I , J ) 
200 INPUT"ENERGY COST";D(I,J) 
210 RETURN 

2 20 PRINT" ADD 1 YR TO DATA BASE "; 
230 GETY$:IFY$=CHR$ (78 ) THENRETURN 
240 IF Y$<>CHR$ (89)THEN230 

2 50 EY=EY+1:N=N+1:K=N:GOSUB460: RETURN 
260 REM LIST DATA 

270 FORI=1TON:GOSUB480:FORM=1TO12:PRINTM$ (M) ;T 

AB(6) ;E(I,M) ; TAB (13) ;D(I,M) :NEXT 
280 PRINT" {DOWN}ANY KEY TO CONTINUE" 
290 GETY$:IFY$=""THEN290 

3 00 NEXT -.RETURN 

310 REM GET TAPE FILE 

320 INPUT"TAPE FILE NAME" ; C$ : OPRNl , 1 , , C$ : INPU 
T#1,N,BY,EY 

3 30 F0RI = 1T0N:F0RM=1T012:INPUT#1,E(I ,M) ,D(I ,M) 



8 



: NEXT : NEXT : CLOSEl : RETURN 
340 REM INPUT DATA 

3 50 K=l: PRINT"!) NATURAL GAS" : PRINT" 2 ) ELECTRI 

CITY" : PRINT" 3) COAL" : PRINT"4) OIL" 
360 PRINT" 5) WOOD": PRINT" {DOWN} CHOOSE ONE" 
370 GETY$:IFY$<>"1"ANDY$<>"2"ANDY$<>"3"ANDY$<> 

" 4 " ANDY$ <> " 5 "T HEN37 
380 IFY$="1"THENC$="NATGAS" :GOTO440 
390 IFY$="2"THENC$="ELECT" :GOTO440 
400 IFY$="3"THENC$="COAL":GOTO440 
410 IFY$="4"THENC$="OIL":GOTO440 
420 IFY$="5"THENC$="WOOD":GOTO440 
430 GOTO370 

440 INPUT" {CLEARlBEGINNING YEAR"; BY 

4 50 INPUT" {DOWN} ENDING YEAR" ; EY : N=EY-BY-»-l 

460 FORI=KTON:GOSUB480:FORM=1TO12:PRINTM$ (M) ;T 
AB(6); 

470 INPUTE(I,M) :PRINTTAB(13) ;"{UP}"; :INPUTD{I, 

M) :NEXT:PRINT:NEXT:RETURN 
480 PRINT" {CLEAR}YEAR";TAB(6) ;C$;TAB(13) ; C$ 
490 PRINTI+BY-1;TAB(6) ; "USAGE" ; TAB ( 13 ) ;"COST": 

RETURN 

5 00 REM SAVE DATA TO TAPE 

510 PRINT" SAVING ";C$;" TO TAPE" : OPENl , 1 ^ 1 ,C$ : 
PRINT* 1 , N ; R$ ; BY ; R$ ; EY : FORI= 1 TON : FORM= 
1T012 

5 20 PRINT#lrE(I ,M) ;R$;D(I ,M) : NEXT : NEXT : CLOSEl : 
RETURN 



Programs. PET/CBM/64 Version* 

10 REM ENERGY DATABASE 

30 R$=CHR$ (13) -.PRINT" {CLEAR} ENERGY 

DATA BASE {03 DOWN}" 
40 N=5:PRINT"# YEARS FOR DATA BASE DESIRED,": 

INPUT"DEFAULT=5" ;N 
50 DIMM$(12) ,E(N,12) ,D(N,12) 
60 F0RI=1T012:READM$ (I) : NEXT: PRINT 
70 DATAJAN, FEB, MAR, APR, MAY, JUNE, JULY, AUG, SEPT 

, OCT, NOV, DEC 
80 PRINT" (L, I, G,S,E) {DOWN}" 
90 GETY$: IFY$=""THEN90 

100 C=ASC(Y$) :Y=(C>68)+(C>70)+(C>72)+(C>75)+(C 



>82) :ONABS(Y)GOSUB130,320,350,270,510 
110 GOTO80 W 
120 REM EDIT 

130 PRINT" {CLEAR} EDIT":FORI 

= ITON : G0SUB4 8 : FORM= 1T012 W 

140 PRINTM$(M) ;TAB(14) ;E(I,M) ;TAB(27) ;D(I^M) :N 

EXT ^ 

150 PRINT" {DOWN} IS LINE TO BE EDITED SHOWN?" :P ^ 
RINT"<Y> OR <N>" 

160 GETY$: IFY$=CHR$ (78)THENNEXT:GOTO220 ^ 

170 IF Y$<>CHR$ (89)THEN160 

180 INPUT"MONTH TO EDIT" ; A$ : F0RJ=1T012 : IFM$ ( J ) 

<>A$THENNEXT ^ 

190 PRINT"{UP}EDIT MONTH OF " ; : PRINTM$ ( J ) ; E ( I , 
J) ;D(I,J) :INPUT"ENERGY USAGE" ; E ( I , J) 

200 INPUT"ENERGY COST" ;D (I, J) w 
210 RETURN 

220 PRINT"ADD 1 YR TO DATA BASE "; 

230 GETY$: IFY$=CHR$ (78)THENRETURN ^ 

240 IF Y$<>CHR$ (89)THEN230 

250 EY=EY+1:N=N+1:K=N:GOSUB460:RETURN 

260 REM LIST DATA 

270 FORI=1TON:GOSUB480:FORM=1T012:PRINTM$ (M) ;T 

AB(14) ;E(I^M) ; TAB (27) ;D(I,M) :NEXT w 
280 PRINT" {DOWN} ANY KEY TO CONTINUE" 

290 GETY$: IFY$=""THEN290 ^ 
300 NEXT: RETURN ^ 
310 REM GET TAPE FILE 

320 INPUT"TAPE FILE NAME" ;C$ : OPENl , 1 , ,C$ : INPU w 
T#1^N^BY^EY 

330 F0RI=1T0N:F0RM=1T012:INPUT#1,E(I,M) ,D(I,M) ^ 
: NEXT : NEXT rCLOSEl : RETURN w 
340 REM INPUT DATA 

350 K=1:PRINT"1) NATURAL GAS" : PRINT" 2 ) ELECTRI ^ 

CITY":PRINT"3) COAL" : PRINT"4 ) OIL" 
360 PRINT"5) WOOD" : PRINT" {DOWN}CHOOSE ONE" 
370 GETY$: IFY$<>"1"ANDY$<>"2"ANDY$<>"3"ANDY$<> W 

" 4 " ANDY$ <> " 5 " THEN370 
380 IFY$="l"THENC$="NATGAS":GOTO440 

390 IFY$="2"THENC$="ELECT":GOTO440 ^ 
400 IFY$="3"THENC$="COAL":GOTO440 

410 IFY$="4"THENC$="0IL" :GOTO440 w 
420 IFY$="5"THENC$="W00D" :GOTO440 
430 GOTO370 
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440 INPUT" {CLEAR}BEGINNING YEAR";BY 
450 INPUT" {DOWN} ENDING YEAR" ; EY : N=EY-BY+1 
460 FORI=KTON:GOSUB480:FORM=lTO12:PRINTM$ (M) ;T 
AB(14) ; 

470 INPUTE(I,M) : PRINTTAB ( 27 ) ;"{UP}"; :INPUTD(I, 

M) : NEXT: PRINT: NEXT: RETURN 
480 PRINT" {CLEAR}YEAR";TAB (14) ;C$;TAB(27) ;C$ 
490 PRINTI+BY-1;TAB(14) ; "USAGE" ; TAB ( 27 ) ; "COST" 

: RETURN 
500 REM SAVE DATA TO TAPE 

510 PRINT"SAVING ";C$;" TO TAPE" :0PEN1, 1, 1,C$ : 
PR INT # 1 , N ; R$ ; B Y ; R$ ; E Y : FOR I = ITON : FORM= 
1T012 

520 PRINT#1,E(I,M) ;R$;D(I,M) :NEXT:NEXT:CL0SE1: 
RETURN 



Program 4. Atari Version. 

10 REM ttt ENERGY DATA BASE **» 
20 REM ttt ATARI VERSION ttt 
30 POKE 752, Is POKE 82,2s? CHR*( 125)5 
PEN #1,4,0, "Ks "s POKE 85,11s? "[iirilE 

eESBBSDSHHIIilll " s ? s ? = ? 
50 DIM M*(4) ,M0NTH*(48) ,FILENAME*(12) 

,A*(4),E(10,12),D(10,12) ,TT*<14) 
60 FOR 1=1 TO 125READ M« s MONTH* ( LEN ( M 

0NTH5fc)+l)=M*sF0R J=0 TO NsD(J,I)=0 

sE<J, I)=OsNEXT JsNEXT I 
70 DATA JAN , FEB , MAR , APR , MAY ,JUNE 

, JULY, AUG , SEPT, OCT , NOV , DEC 

80 ? s? "TYPE FIRST LETTER OF OPTIONS 
•I 

90 ? : ? "mST DATA":? :? "0MPUT DATA" 
:? s? "C^T DATA":? :? "aftVE DATA": 
? :? "®>IT DATA":? 

lOO GET #1,A 

110 IF A=76 THEN GOSUB 310 
120 IF A=73 THEN GOSUB 390 
130 IF A=71 THEN GOSUB 360 
140 IF A=83 THEN GOSUB 550 
150 IF A=69 THEN GOSUB 170 
160 GOTO 90 
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170 ? CHR* < 125) : POKE 85,10:? "ClEDD"sF 

OR 1=1 TO N:GOSUB 530 
180 A=lsFOR M=l TO 12sP0KE 85,1s? MON 

TH« (A, A+3) ; : A=A+4: POKE 85,8:? Ed 

,M);sPOKE 85,17:? D(I,M):NEXT M 
190 ? :? "IS LINE TO BE EDITED SHOWN 

<Y OR N)?" 
200 GET #1,A:IF A=78 THEN NEXT I : GOTO 
270 

210 IF A089 THEN 200 

220 ? "MONTH YOU WANT TO EDIT";: INPUT 

A*sA=l:FOR J=l TO 12 
230 IF MONTH* (A, A+2) OA* THEN A=A+4:N 

EXT J:? A*;"<BELL> IS NOT A MONTH 

. " ! GOTO 220 
240 ? :? "EDIT MONTH OF " ; MONTH* ( A , A+ 

3);E<I,J);"/";D<I,J) 
250 ? "ENERGY USAGE " ; : I NPUT E:E(I,J)= 

E:? "ENERGY COST";: INPUT D:D(I,J} 

= D 

260 RETURN 

270 ? "ADD 1 YEAR TO DATA BASE (Y OR 
N ) ? " ; 

280 GET #1,A:IF A=78 THEN RETURN 
270 IF A089 THEN 280 

300 EY=EY+1 : N=N+1 : K=N: GOSUB 510:RETUR 
N 

310 REM LIST DATA 

320 FOR 1=1 TO N:A=1: GOSUB 530: FOR M= 
1 TO 12:? MONTH* < A, A+3) ;: POKE 85, 
8:? E(I,M);:POKE 85,22:? D(I,M) 

325 A=A+4:NEXT M 

330 ? :? :? "HIT ANY KEY TO CONTINUE" 

340 GET #1,A 

350 NEXT I: RETURN 

360 REM GET DISK FILE 

362 GOSUB 400 

365 TT*="D: " : TT* <3) =FILENAME* 

370 OPEN #2, 4, O, TT*: INPUT #2,N,BY,EY: 

FOR 1=1 TO N 

380 FOR M=l TO 12:INPUT #2 , E , D : E < I , M ) 
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=E: D < I , M) =D: NEXT MzNEXT I : CLOSE # 
2: RETURN 

390 REM INPUT DATA 

391 GOSUB 400: GOTO 499 

400 K=l:? :? s? " O- NATURAL GAS":? 

" ELECTRICITY" : ? " E- --COAL" 

4 1 O ? " E. - - O I L " : ? " m. . . WOOD " : ? : ? : 

? "CHOOSE ONE" 
420 GET #1,A:IF A049 AND AO50 AND A 

051 AND A052 AND A053 THEN 420 
430 IF A=49 THEN F I LENAME«= " NATGAS " : G 

OTO 490 

440 IF A=50 THEN F I LENAME«= " ELECTR I C " 
:60TO 490 

450 IF A=51 THEN F I LENAME*= " COAL " : GOT 
O 490 

460 IF A=52 THEN F I LENAME*= " O I L " : GOTO 
490 

470 IF A=53 THEN F I LEN AME*= " WOOD " : GOT 

490 
480 GOTO 420 
490 RETURN 

499 ? CHR*<125):? " BEG I NN I N6 YEAR " ; : I 
NPUT BY 

500 ? "ENDING YEAR";: INPUT EY:N=EY-BY 
+ 1 

510 A=1:F0R I=K TO N: GOSUB 530: FOR M= 

1 TO 12:? MONTH*<A, A+3) 5 s A=A+4:? 

";: INPUT E:E<I,M)=E:? "CUP>"; 
520 POKE B5,22:INPUT D: D < I , M) =D: NEXT 
ri:A=l:NEXT I : RETURN 

530 ? CHR«<125):? "YEAR";: POKE 85,8:? 

FILENAME*; :POKE 85,22:? FILENAME 

« 

540 ? I+BY-1;:P0KE 85,8:? "USAGE"; :P0 
KE 85,22:? "COST": POKE 85,0: FOR J 
=1 TO 40:? "-";:NEXT J:RETURN 

550 REM SAVE DATA TO DISK 

551 GOSUB 400 

555 TT*="D: " : TT« <3) =FILENAME« 

560 OPEN #2,8,0,TT*:? #2;N:? #2;BY:? 
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#2;EY5FOR 1 = 1 TO NsFOR M=l TO 12: 
? #2;E<I,M)5? #2;D(I,M) 
570 NEXT M:NEXT I s CLOSE #2sRETURN 



Program 5. Color Computer Version. 

10 REM DATABASE 

20 CLS :PRINTTAB( 8) ; "ENERGY DATA BASE": PRINT 
30 PRINT"# OF YEARS FOR DATA BASE" : INPUT"DESI 

RED, DEFAULT=5";N;IFN=0THENN=5 
40 DrMM$ (12) ,E(N,12) ,D(N,12) 
50 F0RI=1T012:READM$ (I) :NEXT 

6 DAT A J AN , FEB , MAR, APR , MAY , JUNE , JULY , AUG , SEPT 

, OCT, NOV, DEC 
70 PRINT" (L,I,G,S,E) "zPRINT 
80 Y$=INKEY$:IFY$=""THEN80 

90 C=ASC(Y$) :Y=(C>68)+(C>70)+(C>72)+(C>75)+(C 
>82) 

95 ONABS(Y) GOSUB 110,220,230,190,300 
100 GOTO70 

110 CLS:PRINTTAB(10) ; "EDIT" : F0RI=1T0N :GOSUB290 

115 F0RM=1T012:PRINTTAB(1) ;M$ (M) ;TAB(8) ;E(I ,M) 

; TAB (17) ;D(I,M) :NEXT 
120 PRINT"IS LINE TO BE EDITED SHOWN? ": PRINT" < 

Y> OR <N>" 

130 Y$=INKEY$:IFY$=CHR$ (78)THENNEXT:GOTO160ELS 
EIFY$<>CHR$ (89)THEN130 

140 INPUT"MONTH DESIRED TO EDIT" ; A$ : F0RJ=1T012 

141 IFM$ (J) <>A$THENNEXTELSEPRINT"EDIT MONTH OF 

";M$ (J);E(I,J)vD(I,J) 

142 IFM$ (J) <>A$THEN INPUT"ENERGY USAGE" ; E ( I , J ) 
: INPUT"ENERGY COST";D(I,J) 

150 RETURN 

160 PRINT" ADD 1 YEAR TO DATA BASE?"; 

170 Y$=INKEY$:IFY$=CHR$ (78 ) THENRETURNELSEIFY$< 

>CHR$ (89)THEN170 
180 EY=EY+1 :N=N+1 :K=N:GOSUB280 : RETURN 
190 FORI=1TON:GOSUB290:FORM=1TO12:PRINTM$ (M) ;T 

AB(8) ;E(I ,M) ; TAB (17) ;D(I,M) 
195 NEXT: PRINT" HIT ANY KEY TO CONTINUE" 
200 IFINKEY$=""THEN200 
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210 NEXT: RETURN 

220 INPUT"DISK FILE NAME" ; C$ : OPEN "I",#1,C$:IN 

PUT# 1 ,N , BY , EY : F0RI=1T0N 
2 25 F0RM=1T012:INPUT#1,E(I ,M) ,D(I ,M) :NEXT:NEXT 

:CL0SE#1:RETURN 
230 K=1:PRINT" 1) NATURAL GAS": PRINT" 2) ELECT 

RICITY": PRINT" 3) COAL" 
235 PRINT" 4) OIL": PRINT" 5) WOOD" : PRINT: PRINT 

"CHOOSE ONE" 
240 Y$=INKEY$:IFY$<>"1"ANDY$<>"2"ANDY$<>"3"AND 

Y$<>"4"ANDY$<>"5"THEN240 
2 50 IFY$="1"THENC$="NATGAS"ELSEIFY$="2"THENC$= 

"ELECT"ELSEIFY$="3"THENC$="C0AL" 
2 55 IFY$="4"THENC$="OIL"ELSEIFY$="5"THENC$="WO 

OD"ELSE230 
260 INPUT"BEGINNING YEAR"; BY 
270 INPUT"ENDING YEAR" ; EY :N=EY-BY+1 
280 FORI=K TON:GOSUB290:FORM=1TO12:PRINTTAB(1) 

;M$ (M) ;TAB(8) ; :INPUTE(I,M) 
285 PRINT @81+32*(M-1) ,""; :INPUTD(I,M) :NEXT:PR 

INT: NEXT: RETURN 
290 CLS:PRINT" YEAR" ; TAB (8 ); "ENERGY" ; TAB (17 ); " 

ENERGY"; TAB (25) ;C$ 
295 PRINTI+BY-1;TAB(8) ; "USAGE" ; TAB ( 18 ) ;"COST": 

RETURN 

300 OPEN "0" ,#1,C$:WRITE#1,N,BY,EY:F0RI=1T0N:F 

0RM=1T012:WRITE#1,E(I,M) ,D(I ,M) 
310 NEXT:NEXT:CL0SE#1:RETURN 



Program 6« TI-99 Version* 

lO REM energy database, TI version 

22 CALL CLEAR 

23 CALL SCREEN (7) 
30 GOSUB 530 

32 PRINT TAB (7> ; "energy data base": s 

50 DIM M*<i2>,E(10,12),D<10,12> 

55 REM dimension currently set up for 

10 years 
60 FOR 1=1 TO 12 
62 READ M*<I) 
64 NEXT I 
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66 PRINT 

70 DATA JAN,FEB,MAR, APR, MAY, JUNE, JULY 

, AUG, SEPT, OCT, NOV, DEC w 
80 PRINT "<l,i,g,5,e)" 
90 GOSUB 540 

95 IF <C<65) + <C>84) THEN SO w 
lOO Y= <C>68> + (C>70> + <C>72) + <C>75> + <C> 

82) ^ 
105 CALL CLEAR w 
no ON ABS<Y) GOSUB 130,320,350,262,51 

O 

112 GOTO 80 w 

115 END 

120 REM edit 

130 PRINT "edit" ^ 
132 FOR 1=1 TO N 
134 GOSUB 480 

136 FOR M=l TO 12 w 
138 PRINT M* <M> ; TAB ( 10) ; E < I , M> ; TAB (21 
) ; D < I , M) 

140 NEXT M vfe, 
142 PRINT "is line to be edited shown 

? <y> or <n>" ^ 
160 GOSUB 540 w 
162 IF C078 THEN 170 
164 NEXT I 
166 GOTO 220 
170 IF C089 THEN 160 
ISO INPUT "month to edit? " : A* 

182 FOR J=l TO 12 ^ 
184 IF SEG* (M* < J) , 1 , 3) =SEG« <A*, 1 , 3) TH 

EN 190 ^ 
186 NEXT J ^ 
190 PRINT "edit month of ";M«<J);E<I, 

J ) ; D (I , J ) 

192 INPUT "energy usage? ":E<I,J) ^ 
200 INPUT "energy cost? ":D(I,J) 
210 RETURN 

220 PRINT "add 1 year to data base, < v^. 

y> or <n>" 
230 GOSUB 540 

232 IF C078 THEN 240 ^ 

16 ^ 
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REM get tape file 




O jC_ Vj» 


nPPKI *r>«"pc;-iii TKITPRKIAI TKIPIIT PTY 




pn 1 '^n 

El 1/ X ^ O 




322 


INPUT #2: C*, N, BY, EY 






PflP T 1 Tn Kl 
r UrC X — X 1 U Im 


■=t T A 


TKIPIIT il'P«P^T 1^ nCT 1> PfT nCT 






tl JL. / yC.\Xy->^/ j|X/\Xj|-w> / i|li_\Xj|'T / j|X/\X^^ / 

■=;> n^T F^T A> nCT A> F<T 7) 






JL/ \ X ji / / 


(, 


i_> %_r 


INPUT «2-F(T 8) D ( I - S ) - E < I - 9 ) - D < I 
Q> PfT \ c\\ n^T in> F{T ii> ncY i 






1^ P/T n^T l'?^ 




"T T £. 


Kl P Y T T 
rllz. A 1 X 




-y -y "7 


L# L. Lf o c. It jC. 
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340 


REM input data 




350 


K=l 


T cr *-> 


P P T Kl T • • 
r r\ X 1 M 1 ■ m 




354 


PRINT TAB (10) ; " 1 ) natgas" 




355 


PRINT TAB < 10> ; "2) el ecf ' 




356 


PRINT TAB ( 10) ; "3) coal " 




357 


PRINT TAB < 10) ; "4) oi 1 " 
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358 


PRINT TAB < 1 ) ; " 5 ) wood " s s s : 


\^ 


360 


PRINT "choose one" 


') 


370 


GuSUB 540 




372 


IF <C<49>+(C>33)THtN o/U 


380 


IP C<>4V THc.N oVU 




382 


C*="natgas" 




o>84 


GOTO 440 






T 1"* J.-' "s. d" v^ T" i_i cr Kl VI v% v^ 

IF C X- U 1 H t. N 4 U 




392 


C*=el ecr 




394 


GOTO 4 4 




400 


IF C<>51 THEN 410 




402 






404 


GOTO 440 




4 1 O 


IF >52 THEN 4 20 




412 


C S = 1 1 




/I -f /I 
4 14 


LtU 1 U 4 4U 




4^U 


If" LrV.x'^o IntiM 4oU 




422 


C*= wood 




424 


r~\ ~r {~k VI VI V^ 

GOTO 440 




430 


GOTO 370 




VI VI y"» 

440 


GOSOB 530 




VI VI o 

442 


INPOT beginning year? sBY 


VI VI VI 

444 


INPOi ending year/ sEY 




450 


N=E Y— B Y+ 1 




4oU 


rOK I — K 10 N 




4o2 


f^nOIID yi y^ 

GUoOB 4oU 




464 


FOR M=l TO 12 




4oo 


PKINI ri*\rl> ; lftB\V> « 


4/0 


tilidiit rr/T m\ 
I NPOT E < I , PI > 




472 


PRINT TAB <21 ) ; 




VI ~y vi 

474 


I NPOT D ( I ji n ) 




4 / Z> 


NE A 1 r1 




476 


GOSOB 530 




A "7*7 


IvIC Y T T 
l>l t: A 1 1 




VI "7 Q 


D IT T 1 i M 

r\tL 1 U r\ iM 




479 


REM tttttttttttt 




480 


GOSOB 530 




482 


PRINT "year TAB < 10) ;C*;TAB<21) ;C 










490 


PRINT I+BY~1 ; TAB < lO) ; "usage" ; TAB ( 






21 ) ; "cost" 




492 


RETORN 
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500 REM save data to tape*** 

510 PRINT "saving ";C*;" to tape" 

512 OPEN #2: "CSl SEQUENTIAL, INTERNAL 

, OUTPUT, FIXED 128 
514 PRINT #2: C«, N, BY, EY 
520 FOR 1=1 TO N 

524 PRINT #2: E ( I , 1 > , D ( I , 1 )-, E < I , 2) , D ( I 
,2),E<I,3),D(I,3),E(I,4),D<I,4),E 
<I,5),D<I,5>,E<I,6>,D(I,6),E<I,7), 
D < I , 7 ) 

525 PRINT #2: E ( I , 8) , D ( I , 8) , E ( I , 9) , D < I 
,9),E<I,10>,i>(I,10>,E<i,ll),D<I,l 
i>,E<I, 12), 0(1,12) 

526 NEXT I 

527 CLOSE #2 

528 RETURN 
530 CALL CLEAR 
532 RETURN 

540 CALL KEY <3, C, STATUS) 
550 IF STATUS=0 THEN 540 
560 RETURN 



Program 7. Apple Version. 

10 REM ENERBY DATABASE APPLE VERSION 

30 HOME I INVERSE s PRINT " ENEI^Y DATA BA 

8E "iD* " CHR* (4)1 NORMAL i PRINT i PRINT 

40 N « 5i PRINT "tt OF YEARS FOR DATA BASE DE 

SIRED, "I INPUT " DEFAULT«5i "|N»aN => VAL 
(N«)i IF N» e THEN N = S 

50 DIM M»(12),E(N,12),D(N,12) 

60 FOR I - 1 TO 12i READ M«(I)i NEXT i PRINT 

70 DATA JAN,FEB,MAR,APR,MAY,JUNpJUL,AUep8E 
P, OCT, NOV, DEC 

80 HOME I PRINT t INVERSE i PRINT "L"}! NORMAL 

8 PRINT "1ST DATA" 

81 PRINT 8 INVERSE 8 PRINT "I"j8 NORMAL 8 PRINT 

"NPUT DATA" 

82 PRINT 8 INVERSE s PRINT "S"j8 NORMAL 8 PRINT 

"ET DATA" 

83 PRINT 8 INVERSE s PRINT "S"j8 NORMAL 8 PRINT 

"AVE DATA" 
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85 PRINT a INVERSE i PRINT "E'-ga NORMAL i PRINT 
"DIT DATA" 

90 PRINT a PRINT "WHICH? "3 a GET Y«a IF Y* = 

CHR% <27) THEN HOME a END 
95 PRINT Y* 

100 C = ASC <Y*)8Y = <C > 68) <C > 70) + 
(C > 72) + (C > 75) + <C > 82)8 ON ABS 
<Y) GOSUB 130,310,350,270,500 

110 PRINT CHR» <7)a 60T0 80 

120 REM EDIT 

130 HOME a PRINT "«» EDIT ♦»"a PRINT a FOR 
I = 1 TO Na GOSUB 480b FOR M « 1 TO 12a 
IF M / 2 = INT (M / 2) THEN INVERSE 

135 PRINT M*<M);a NORMAL a PRINT TAB< 6)5E 

(I,M)5 TAB( 13)5D(I,M) 
140 NEXT 

150 PRINT a PRINT "IS LINE TO BE EDITED SHO 

WN? (Y/N)3"| 
160 GET Y*a IF Y* = CHR* (78) THEN HOME a 

NEXT a GOTO 220 
170 IF Y* < > CHR* (89) THEN PRINT CHR» 

(7); a GOTO 160 
180 PRINT a INPUT "MONTH TO EDIT? "5A*aA» = 
LEFT* (A*, 3) a FOR J = 1 TO 12a IF M*(J 
) < > A* THEN NEXT a PRINT CHR* (7) a 
GOTO 130 

190 HOME a PRINT "EDIT MONTH OF";M*(J)j"a U 
SAGE ";E<I,J)5" COST *"jD<I,J)a PRINT 

195 INPUT "ENERGY USAGE? "jT*a IF T* > "" THEN 

E<I,J) = VAL <T*) 
200 INPUT "ENERGY COST? *"jT*a IF T* > "" THEN 

D(I,J) = VAL <T*) 
210 RETURN 

220 PRINT a PRINT "DO YOU WANT TO ADD ONE Y 
EAR" a PRINT "TO THE DATA BASE? <Y/N)a"| 

230 GET Y*a IF Y* = CHR* (78) THEN RETURN 

240 IF Y* < > CHR* (89) THEN PRINT CHR* 

(7); a GOTO 230 
250 EY = EY + laN = N + laK = Na GOSUB 460a RETURN 
260 REM LIST DATA 

270 FOR I = 1 TO Na HOME a GOSUB 480a FOR M 
= 1 TO 12a IF M / 2 = INT (M / 2) THEN 
INVERSE 

275 PRINT M*(M)5 8 NORMAL a PRINT TAB( 6)5E 



20 











































(I,M)s TAB( 13);D(IpM): NEXT 


280 


PRINT a PRINT "PRESS ANY KEY TO CONTINU 




290 


Es"; 
GET Y* 




300 


NEXT 8 RETURN 




310 


REM GET DISK FILE 




311 


HOME 8 PRINT "GET DISK FILEa WHICH?" s PRINT 


\^/ 




a GOSUB 600 


320 


PRINT 8 FLASH s PRINT "READING "sC«8 NORMAL 






a PRINT 


321 


ONERR GOTO 335 




322 


PRINT D*5"0PEN ";C»8 PRINT D*; "READ "|C 




325 


INPUT Nb input by 8 INPUT EY 




330 


FOR I = 1 TO Na FOR M = 1 TO 128 INPUT 
E(I,M)a INPUT D<I,M)a NEXT a NEXT a PRINT 






D«| "CLOSE" sC«a POKE 216,0b RETURN 


335 


PRINT D*5"CLOSE"jC*5 8 HOME a PRINT CHR* 






(7)8 PRINT a INVERSE a PRINT "ERROR REA 






DING "5C*;a FOR I = 1 TO 3000a NEXT a NORMAL 




a GOTO 80 




340 
350 


REM INPUT DATA 

HOME a PRINT "«« INPUT DATA »»»"a PRINT 


ViS^ 




a PRINT a GOSUB 600 


445 


INPUT "BEGINNING YEAR? "5 BY 




450 


INPUT "ENDING YEAR? "|EYaN = EY - BY + 

•1 




460 


FOR I « K TO Na HOME a GOSUB 480a PRINT 






a FOR M = 1 TO 12a PRINT M*(M)5 TAB< 6) 

INPUT E(I,M)a VTAB 3 + Ma POKE 36,13a INPUT 
D(I,M)a NEXT a PRINT a NEXT a RETURN 




470 


L. 


480 


INVERSE a PRINT "YEAR"; TAB( 6)jC*5 TAB< 
13) sC« 




490 


PRINT I + BY - 1; TAB( 6) 5 "USAGE"; TAB( 






13); "COST" a NORMAL a RETURN 


500 


REM SAVE DATA TO DISK 




501 


FLASH a PRINT a PRINT "WRITING ";C*a NORMAL 
a PRINT 




503 


ONERR GOTO 40 


\(^^ 


505 


PRINT D«; "OPEN";C*a PRINT D*; "WRITE" ; C* 




510 


PRINT Na PRINT BYa PRINT EYa FOR I = 1 TO 




Na FOR M = 1 TO 12 




520 


PRINT E<I,M)a PRINT D<I,M)8 NEXT a NEXT 




530 


PRINT D*; "CLOSE" ;C*a POKE 216,0 




535 


RETURN 
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540 HOME : INVERSE s PRINT "ERROR PEEK < 

222);" TRYING TO WRITE ";C*: PRINT : PRINT 
: NORMAL s FOR W = 1 TO 3000s NEXT s PRINT 
D^5 "CL0SE"5C*: GOTO 80 

600 K = Is PRINT "1) NATURAL GAS"s PRINT s PRINT 
"2) ELECTRICITY" s PRINT s PRINT "3) COA 
L"s PRINT s PRINT "4) OIL"s PRINT s PRINT 
"5) WOOD "8 PRINT s PRINT "CHOOSE ONEs"; 

610 GET Y*s IF Y* = CHR* (27) THEN HOME s 
END 

620 IF Y* = "1" THEN C* = "NATGAS" 

630 IF Y* = "2" THEN C* = "ELECT" 

640 IF Y$ = "3" THEN C* = "COAL" 

650 IF Y* = "4" THEN C* = "OIL" 

660 IF Y* = "5" THEN C* = "WOOD" 

670 IF Y* < "1" OR Y* > "5" THEN PRINT CHR* 

<7);s GOTO 610 
680 PRINT Y*5 RETURN 
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Energy 
Workbook 



Q 
Q 

Q 

Q 

® 

Q 
Q 
Q 



Energy Workbook 



Note: The DATA statements in lines 1000-2000 (Program 7) should be 
added to whichever version of the program you use. 

The energy workbook program allows for a wide variety of fuels 
for both heating and cooling: oil, natural gas,electricity, wood, 
liquid petroleum, gas, and coal. The savings due to installing storm 
windows, changing thermostat settings, caulking and weather- 
stripping, or adding ceiling or floor insulation are calculated for the 
homeowner. The required inputs are shown in Table 1. Repetitive 
calculations involving future energy cost can easily be made using 
the program, thus improving the homeowner's estimate of the 
accrued energy savings. 

The program is based on an algorithm from the Federal 
Energy Administration which divides the 48 contiguous states into 
climatic regions for cooling and heating for average housing, fuel, 
and climatic conditions. If the user's situation is unusual in terms of 
home construction, altitude, etc., additional advice from 
government offices or utility companies may be needed. 

String variables are used to read the table of states, cities, and 
heating (H) and cooling (C) factors. Commas are used for delimiters 
separating the states from the cities and their factors. Because of 
this, names of cities comprised of two or more words have had the 
interior blanks removed. Both the heating zone and the cooling 
zone range from zero to five, with five being the most severe 
winter climate and zero being the most severe summer climate. 
The heating and cooling zones are used to calculate a heating 
factor and a cooling factor. The fuel factors FH (I) and FC(I) are 
read from the DATA statements for the fuel chosen by the user, 
and a heating index (HI) or cooling index (CI) is calculated by the 
product of the heating (or cooling) factor times the fuel factor times 
the price per fuel unit. 

The fuel index (FI) is calculated by the sum of the heating 
index and cooling index. The annual heating fuel cost is taken 
from the total energy cost for the heating season times .85 to 
account for other uses of fuel (e.g., hot water heating). To account 
for other use such as lighting, the annual cooling cost is calculated 
from total cooling season fuel cost times .6. These ratios can be 
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checked by determining average off season to average in season 
usage. The appropriate ratios should be used in statements 175 and 
200 (lines 177 and 206 in the TI version). The ratios in my home 
were .56 and .88 for cooling and heating respectively, quite close 
to the Energy Administration's estimate. 

Annual heating savings due to changing the thermostat 
setting are calculated from the product of the number of degrees 
turned down times the annual heating cost (HS) times a savings 
factor (Y). Additional savings due to setting back the nighttime 
temperature are calculated using a similar procedure, but with an 
added factor .3 (due to the reduced time the set back temperature 
is in effect). Cooling seasons savings are calculated from the annual 
cooling cost times .02 times the number of degrees the thermostat 
is turned up. The annual savings from caulking and weather- 
stripping are calculated from a draft factor times the total floor 
area times the fuel index. The draft factor is the sum of the factors 
for windows, doors, and general house condition, each of which 
ranges from to .02 in steps of .01, ranging from a tight fit (0) to 
drafty. 

Annual savings from storm windows are calculated from the 
product of the single glass area, the factor 0.65, and the fuel index. 
The annual savings from adding ceiling insulation are computed 
from the product of the ceiling savings index (X-I), the first floor 
area, and the fuel index (line 470). The ceiling savings index is 
calculated as the difference between the conduction factor 
between the recommended ceiling insulation and the existing 
ceiling insulation. The recommended ceiling insulation is 
calculated in lines 450-460 and is only a function of the heating 
zone, thereby underestimating the savings accrued due to 
reducing air conditioning cost. The annual savings from floor 
insulation are calculated by the product of the floor factor (J), the 
floor savings index, the floor area, and the fuel index. 

Reference 

Home Energy Saver's Workbook. FEA/D-77/117. Washington, D.C.: 
Government Printing Office, 1977. 
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Table 1. 

The items needed for Energy Workbook are the foUowing: 

1) State 

2) City 

3) Heating fuel cost (e.g., .37 cents/cu. ft.) 

4) Cooling fuel cost (e.g., 5.14 cents/KWH) 

5) Square ft. of single glass windows in house 

6) Annual heating fuel cost 

7) Annual cooling fuel cost 

8) Check leakage around windows and doors with candle or cigarette 

9) Floor area of house — sq. ft. 

10) Ceiling R value, use following table: 

R Values for Various Thicknesses of insulation 





BATTS OR BLANKETS^ 


LOOSE RLL (P0i|i^m)> 






glass 
fiber 


rock 

, wo ol J 


glass 

1 fibejr 




feer 




R-13 

R49 

R^22 ^ 

R-26 

R.30 

R-33 

R*38 


: 3WM" 

11" 

12^-13" 


. m" 
' 51/4" 

m" 

w 

iw :i 

• 


12" 
15" 


; 6 "-7" 


5'" ■ .;' 

7"-7%" 


R-13 
R-33 

R^8, : 



1 1) First floor area — sq. ft. 

12) Floor R value if basement is unheated or if house is on pillars. 



Table 2« Sample Run. 



ENERGY WORKBOOK 



ITEMS NEEDED FOR WORKBOOK: 

1 ) STATE & CITY 

2) HEATING FUEL COST (E.G. .37 CENTS/CU FT) 

3) COOLING FUEL COST (E.G. 5.14 CENTS/KWH) 

4) SQ FT OF SINGLE GLASS WINDOWS 

5) ANNUAL HEATING AND COOLING FUEL COST 

6) CHECK FOR LEAKAGE AROUND WINDOWS AND DOORS WITH CANDLE 

7 ) FLOOR AREA OF HOUSE - SQ FT 

8) CEILING R VALUE - USE TABLE PROVIDED 

9) FIRST FLOOR AREA - SQ FT 

10) FLOOR R VALUE IF BASEMENT IS UNHEATED OR HOUSE IS ON PILLARS 
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STATE (DON'T ABBREVIATE)? TEXAS ^ 



1 DALLAS 

2 HOUSTON 

3 BROWNSVILLE 

4 AMARILLO W 
CHOOSE # FOR NEAREST CITY? 2 ^ 

1 oil/gallon 

2 NATGAS/CUFT ^ 

3 electricity/kwh 

4 wood/cord W 

5 LPG/CUFT 

6 LPG/LBS 

7 LPG/GALLON 

8 coal/ton ^ 
CHOOSE # FOR heating FUEL? 2 

COST PER unit for HEATING FUEL (CENTS)? .45 W 

CHOOSE # FOR COOLING FUEL? 3 ^ 
COST PER UNIT FOR COOLING FUEL (CENTS)? 6 

INPUT # OF SQ FT OF SINGLE GLASS WINDOWS 

DO NOT COUNT STORM WINDOWS OR SLIDING GLASS DOORS? 190 \^ 
ANNUAL SAVINGS DUE TO STORM WINDOWS= 116.7 ^ 

IS HEATING FUEL USED FOR OTHER PURPOSES, E.G. COOKING? Y W 
ANNUAL HEATING FUEL COST (DOLLARS)? 175 ^ 

IS COOLING FUEL USED FOR OTHER PURPOSES, E.G. LIGHTING? Y 
ANNUAL COOLING FUEL COST (DOLLARS)? 800 

THE FOLLOWING SECTION EVALUATES THE SAVINGS OBTAINED BY TURNING ^ 
THE THERMOSTAT DOWN IN WINTER OR UP IN SUMMER FROM THE SETTING 
YOU HAVE BEEN USING. 

HEATING W 

DEGREES TURNED DOWN DURING DAY? 5 ^ 
SAVINGS =$ 37.18 

ADDITIONAL DEGREES TURNED DOWN DURING NIGHT? 5 

SAVINGS=$ 11.15 ^ 
ANNUAL TOTAL HEATING SAVINGS =$ 48.33 

COOLING 

DEGREES THERMOSTAT TURNED UP DURING COOLING? 5 ^ 
SAVINGS =$ 48 ^ 

TOTAL ANNUAL SAVINGS =$ 96.33 



ANNUAL SAVINGS FROM CAULKING AND WEATHERSTRIPPING 
CHECK DRAFTS HOLDING CANDLE NEAR CRACK ON WINDY DAY 



28 



CHOOSE ONE OF FOLLOWING: 

1) WINDOWS WITH GOOD FIT 

2) SOME LEAKAGE 

3) RATHER DRAFTY 



CHOOSE ONE OF FOLLOWING: 

1) DOORS FIT WELL 

2) SOME LEAKAGE 

3) DRAFTY 



CHOOSE ONE OF FOLLOWING: 

1) CAULKING AND WEATHERSTRIP? ING GOOD 

2) NEED REPAIR 

3) NO CAULKING OR WEATHERSTRIPPING 
? 2 

FLOOR AREA OF HOUSE - SQ FT? 2000 

ANNUAL SAVINGS FOR CAULKING AND WEATHERSTRIPPING = § 56.7 



ANNUAL SAVINGS FROM CEILING INSULATION 
CEILING R VALUE 19 

FIRST FLOOR AREA OF HOUSE (SQ FT)? 2000 

ANNUAL SAVINGS BY BRINGING CEILING R UPTO 26 = $ 22.68 



IS HOUSE ON PILLARS OR AN UNHEATED BASEMENT? Y 
CHOOSE FOUNDATION FACTOR FROM LIST BELOW: 

FACTOR FOUNDATION CHARACTERISTICS 

0.5 BUILDING WITH TIGHT CRAWL SPACE 

0.5 BUILDING WITH TIGHT BASEMENT (UNHEATED) 

0.8 STONE WALL BASEMENT (UNHEATED) 
0.8 2 FT OR MORE OF BASEMENT WALL EXPOSED (UNHEATED) 

0.8 CRAWL SPACE SKIRTED 

1.0 BUILDING ON PILLARS WITH NO SKIRTS 

FLOOR FACTOR FROM ABOVE TABLE? 1 
CURRENT R FACTOR FOR FLOOR? .077 

ANNUAL SAVINGS BY INCREASING FLOOR R VALUE TO 11 = $ 793.86 
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Program 2* VIC Version. 

1 REM ENERGY WORKBOOK IS BASED ON FEA/D-77/1 

17^ APRIL 1977 VIC VERSION 

2 L=96 

3 PRINT" {CLEAR} {09 DOWN} ENERGY WORKBOOK" 

: FORI=1TO1500:NEXT 

4 PRINT" ITEMS NEEDED{D0WN} ": PRINT" 1) STATE & 

CITY" 

5 PRINT" 2) HEATING FUEL COST" : REM E.G. .37 C 

ENTS/CU FT 

6 PRINT" 3) COOLING COST": REM E.G. 5.14 CENTS 

/KWH 

7 PRINT"4) SQ FT OF SINGLE GLASS WINDO 

WS" 

8 PRINT" 5) ANNUAL HEATING AND COOLING FUE 

L COST" 

9 PRINT" 6) CHECK FOR LEAKAGE AROUND WIND 

OWS AND DOORS WITH CANDLE" 

10 PRINT" 7) FLOOR AREA - SQ FT" 

11 PRINT"8) CEILING R VALUE" :REM USE TABLE PR 

OVIDED 

12 PRINT" 9) FIRST FLOOR AREA" 

13 PRINT" 10) FLOOR R VALUE IF BASEMENT I 

S USED": PRINT" OR HOUSE IS ON" 

14 PRINT" PILLARS":PRINT"{DOWN}STATE(DON'T 

ABBREVIATE" : INPUTB$ : F0RI=1T0L : READC$ 

15 IFLEFT5 (B$,7)=LEFT$ (C$ , 7 ) THENB$=C$ : READD$ 
2 NEXT:F0RI=1T04:B$ (I) =" " :NEXT: 1=1 : Y=LEN (D$) 

: J=l 

2 5 X=ASC(MID$ (D$,I,1) ) : IFX=32THEN45 
30 B$(J)=B$(J)+CHR$(X):GOT055 

4 5 I=I+1:X(J)=VAL(MID$ (D$,I,1) ) : 1=1+2 : Y { J) =VA 

L(MID$(D$,I,1)) 
47 I=1+1:J=J+1 
55 IFI<YTHENI=I+l:GOT025 

58 J=J-1: PRINT" {CLEAR} ";B$;"{03 DOWN}": 

F0RI=1T0J 
60 PRINTI;B$ (I) :NEXT 

65 PRINT:PRINT:PRINT"CHOOSE # FOR NEAREST CI 

TY":INPUTI:H=X(I) :C=Y(I) : REM ZONES 
80 X=1:FORI=1TO5:IFC=ITHEN90 
8 5 X=X-.25:NEXT 

90 HC=X:X=0:FORI=0TO5:IFH=I THEN100:REM H 
F Sc CF ARE HEAT AND COOL FACTORS 
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9 5 X=X+.5:NEXT 

100 HF=X:PRINT:PRINT 

110 F0RI = lT08zREADB$,FH(I) ,FC(I) : PRINTI ; B$ :NEX 
T 

115 PRINT" {02 DOWNlCHOOSE # FOR HEATING FUEL" 
: INPUTJ 

120 PRINT" {DOWN}COST PER UNIT FOR HEATING FUEL 
(CENTS) ": INPUTS:S=S/100 

125 HI=S*FH(J)*HF:REM HEAT INDEX 

126 PRINT" {02 DOWNlCHOOSE # FOR COOLING FUEL" 
: INPUTJ 

127 PRINT" {DOWNlCOST PER UNIT FOR COOLING FUE 
L (CENTS" : INPUTS : S=S/100 

130 CI=S*FC(J)*HC:FI=HI+CI:REM COOL AND FUEL I 
NDEX 

145 PRINT" {DOWN} INPUT # OF SQ FT OF SINGLE G 

LASS WINDOWS r DO NQT" 
150 PRINT"COUNT STORM WINDOWS OR SLIDING GLASS 

DOORS" xINPUTX 
170 X=INT(X*100*FI*.65)/100 

175 PRINT" {CLEAR}ANNUAL SAVINGS DUE TO STORM W 

INDOWS= ";X:X=.85:GOSUB800 
180 PRINT:PRINT"IS HEATING FUEL USED FOR OTHE 

R PURPOSES, E.G. COOKING" 
190 INPUTB$:IFASC(B$)=78THENX=1 

200 PRINT"ANNUAL HEATING FUEL COST (DOLLARS) 
" : INPUTHS : HS=HS*X s PRINT : PRINT : X= . 6 

210 PRINT" IS COOLING FUEL USED FOR OTHER PURP 
OSES, E.G. LIGHTING" 

220 INPUTB$:IFASC(B$)=78THENX=1 

2 30 PRINT"ANNUAL COOLING FUEL COST (DOLLARS) 

":INPUTCSsCS=CS*X 
240 PRINT : PRINT :Y=. 05: F0RI=1T03: IFI=HTHEN247 

245 Y=Y-.01:NEXT:IFH=4THENY=.025 

246 IFH=5THENY=.02 

247 GOSUB800 

250 PRINT" {CLEARlTHE FOLLOWING SECTION EVALUAT 

ES THE SAVINGS OBTAINED BY TURNING" 
2 55 PRINT"THE THERMOSTAT DOWN INWINTER OR UP I 

N SUMMER FROM THE SETTING" 
256 PRINT"YOU HAVE BEEN USING .": PRINT : PRINT" HE 

ATING": PRINT 
260 PRINT"DEGREES TURNED DOWN DURING DAY" : IN 

PUTX:S=INT(100*Y*HS*X)/100 
265 PRINT"SAVINGS =$"; S : PRINT" {DOWN} ADDITIONAL 
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DEGREES TURNED DOWN DURING NIGHT" 
270 INPUTX:I=INT(100*Y*HS*X*.3)/100:PRINT"{DOW 

DOWN}SAVINGS=$";I 
280 S=S+I: PRINT" {DOWN} ANNUAL TOTAL HEATING SA 
VINGS =$ " ; S : PRINT : PRINT" COOLING { DOWN } 

N 

285 PRINT"DEGREES THERMOSTAT TURNED UP DURING 

COOLING" tINPUTX 
290 I=INT(100*CS*X*.02)/100:PRINT"SAVINGS =$"; 

300 PRINT :PRINT"TOTAL ANNUAL SAVINGS ^g-fS+IxG 
OSUB800 

310 PRINT" {DOWN} ANNUAL SAVINGS FROM CAULKING A 

ND WEATHERSTRIPPING" 
315 PRINT"CHECK DRAFTS HOLDING CANDLE NEAR CRA 

CK ON WINDY DAY" 
320 PRINT" {DOWN}CHOOSE ONE OF FOLLOWING" : PRINT 

" 1) WINDOWS WITH GOOD FIT" 
340 PRINT" 2) SOME LEAKAGE" : PRINT" 3) RATHER DRA 

FTY " 

350 INPUTY:PRINT:PRINT''{DOWN}CHOOSE ONE OF POL 
LOWING": PRINT" 1) DOORS FIT GOOD" 

360 PRINT"2) SOME LEAKAGE" : PRINT" 3) DRAFTY":IN 
PUTI 

370 PRINT" {DOWN} CHOOSE ONE OF FOLLOWING" : PRINT 

380 PRINT"!) CAULKING AND WEATHERSTRI 

PPING GOOD" 
390 PRINT" 2) NEED REPAIR" : PRINT" 3) NO CAULKING 

OR WEATHERSTRIPPING" : INPUTS 

400 PRINT" FLOOR AREA OF HOUSE INPUT" SQ FT"; 

X 

410 X=X*(Y+I+S-3)/100*FI:X=INT(X*100)/100:PRIN 
T 

420 PRINT" {CLEAR}AlilNUAL SAVINGS FOR CAULKING A 
NDWEATHERSTRIPPING= $"; X!GOSUB800 

4 40 PRINT: PRINT: PRINT" ANNUAL SAVINGS FROM CEIL 
ING INSULATION" : PRINT: PRINT 

450 Y=38:INPUT"CEILING R VALUE" ; X: IFH<3THENY=2 
6 

455 IFH=3THENY=30 
460 IFH=4THENY=33 

465 PRINT"FIRST FLOOR AREA OF HOUSE (SQ FT) " : I 
NPUTF 

470 R=Y:GOSUB900:I=R:R=X:GOSUB900:X=R:X=INT(10 
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0*(X-I) *F*PI)/100 
475 IFX<0THENX=0 

480 PRINT"ANNUAL SAVINGS BY BRINGING CEILING R 

UPTO";Y;" = X:GOSUB800 
550 INPUT"IS HOUSE ON PILLARS OR HAVE AN UNHEA 

TED BASEMENT" ;B$ 
555 IFASC(B$)=78THEN799 

560 PRINT"CHOOSE FOUNDATION FACTOR FROM LIST B 
ELOW{DOWN}" 

565 PRINT" {DOWN} FACTOR FOUNDATION CHARACTERIST 
ICS" 

570 PRINT" 0.5 BUILDING WITH TIGHT CRAWL SPACE 
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580 PRINT" 0.5 BUILDING WITH TIGHT BASEMENT (UN 
HEATED) " 

590 PRINT"0.8 STONE WALL BASEMENT (UNHEATED) " 
600 PRINT" 0.8 2 FT OR MORE OF BASEMENT WALL EX 

POSED (UNHEATED)" 
610 PRINT" 0.8 CRAWL SPACE SKIRTED" 
620 PRINT"1.0 BUILDING ON PILLARS WITH NO SKIR 

TS" 

625 PRINT" {DOWN} FLOOR FACTOR FROM ABOVE TABLE" 
: INPUTJ 

6 27 Y=ll : IPH>1THENY=13 : IFH>2THENY=19 : IFH>3THEN 
Y = 22 

628 R=YsGOSUB900:Q=R:PRINT"CURRENT R FACTOR FO 
R FLOOR" : INPUTR 

630 GOSUB900:X=J*(R-Q)*F*FI: PRINT: PRINT: X=INT( 

X*100) /100 : IFX<0THENX=0 
640 PRINT"ANNUAL SAVINGS BY INCREASING FLOOR R 

VALUE TO ":Y:" =$";X 
645 GOSUB800 

799 RESTORE : PRINT: PRINT :GOSUB800 : PRINT: PRINT: L 
=96:GOT014 

8 00 PRINT" ": RETURN 

828 R=Y:GOSUB900:I=R 

899 REM CONDUCTION FACTOR SUBROUTINE 

900 IFR<11THEN920 

901 IFR<12THEMR=.077:RETURN 

902 IFR<15THENR=.066:RETURN 

903 IFR<20THENR=.048:RETURN 

904 IFR<24THENR=.042:RETURN 

905 IFR<28THENR=.036:RETURN 

906 IFR<34THENR=.031:RETURN 
910 R=.025:RETURN 

920 R=.5-.0385*R:RETURN 
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Program 3. Microsoft Version. 

1 REM ENERGY WORKBOOK IS BASED ON FEA/D-77/1 

11, APRIL 1977/ 

2 L=96 

3 PRINT" {CLEAR} {09 DOWN} ENERGY WO 

RKBOOK{03 DOWN}" :FORI=lTO1000:NEXT 

4 PRINT" {CLEAR} {03 DOWN} ITEMS NE 

EDED{DOWN}": PRINT"!) STATE & CITY" 

5 PRINT"2) HEATING FUEL COST":REM E.G. .37 C 

ENTS/CU FT 

6 PRINT"3) COOLING COST":REM E.G. 5.14 CENTS 

/KWH 

7 PRINT" 4) SQ FT OF SINGLE GLASS WINDOWS" 

8 PRINT" 5) ANNUAL HEATING AND COOLING FUEL C 

OST" 

9 PRINT" 6) CHECK FOR LEAKAGE AROUND WINDOWS 

AND DOORS WITH CANDLE" 

10 PRINT" 7) FLOOR AREA - SQ FT" 

11 PRINT"8) CEILING R VALUE": REM USE TABLE PR 

OVIDED 

12 PRINT" 9) FIRST FLOOR AREA" 

13 PRINT" 10) FLOOR R VALUE IF BASEMENT IS USE 

D" 

14 PRINT" OR HOUSE IS ON PILLARS{02 DOWN}" 

15 INPUT"STATE (DON'T ABBREVIATE) " ;B$ : PRINT" { 

CLEAR} " : F0RI=1T0L : READC$ 

16 IFLEFT$ (B$ r 7 ) =LEFT$ (C$,7) THENB$=C$ : READD$ 
20 NEXT:F0RI=1T04:B$ (I)="":NEXT:I=1:Y=LEN(D$) 

:J=1 

25 X=ASC(MID$(D$,I,1)) : IFX=32THEN45 
30 B$ (J) =B$ (J) +CHR$ (X) :GOT055 

45 I=I+1:X(J)=VAL(MID$ (D$,I,1) ) : 1=1+2 : Y ( J ) =VA 

L(MID$(D$,I,1)) 
47 I=I+1:J=J+1 
55 IFI<YTHENI=I+l:GOT025 

58 J=J-1: PRINT" {CLEAR} ";B$;"{0 

3 DOWN}" : FORI =1T0J 
60 PRINTTAB(12) ;I;B$(I) :NEXT 

65 PRINT: PRINT: INPUT"CHOOSE # FOR NEAREST CIT 

Y";I:H=X(I) :C=Y(I) :REM ZONES 
80 X=1:F0RI=1T05: IFC=ITHEN90 
85 X=X— •25:NEXT 

90 HC=X:X=0:FORI=0TO5:IFH=I THEN100:REM H 
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F & CF ARE HEAT AND COOL FACTORS 
95 X=X+.5:NEXT 
100 HF=X: PRINT: PRINT 

110 F0RI=1T08:READB$,FH(I) ,FC(I) : PRINTTAB ( 12) ; 
I;B$:NEXT 

115 INPUT" {02 DOWN}CHOOSE # FOR HEATING FUEL"; 
J 

120 PRINT" {DOWN}COST PER UNIT FOR HEATING FUEL 
(CENTS) ": INPUTS :S=S/100 

125 HI=S*FH(J) *HF:REM HEAT INDEX 

126 INPUT" {02 DOWN}CHOOSE # FOR COOLING FUEL"; 
J 

127 PRINT" {DOWN}COST PER UNIT FOR COOLING FUEL 
SCENTS) ": INPUTS :S=S/100 

130 CI=S*FC(J) *HC:FI=HI+CI:REM COOL AND FUEL I 
NDEX 

145 PRINT" {CLEAR} INPUT # OF SQ FT OF SINGLE GL 
ASS WINDOWS" 

150 PRINT"DO NOT COUNT STORM WINDOWS OR SLIDIN 

G ":INPUT"GLASS DOORS" ;X 
170 X=INT(X*100*FI*.65)/100 

175 PRINT" {CLEAR} ANNUAL SAVINGS DUE TO STORM W 
INDOWS= $":PRINTTAB(12) ;X:X=. 85 iGOSUB 
800 

180 PRINT: PRINT" IS HEATING FUEL USED FOR OTHER 
PURPOSES" 

190 INPUT"E.G.COOKING-Y^N";B$: IFASC(B$) =78THEN 
X=l 

200 PRINT"ANNUAL HEATING FUEL COST (DOLLARS)": 
INPUTHS : HS=HS*X : PRINT : PRINT : X= . 6 

210 PRINT" IS COOLING FUEL USED FOR OTHER PURPO 
SES" 

220 INPUT"E,G. LIGHTING-Y ,N" ;B$ : IFASC (B$) =78TH 
ENX=1 

230 PRINT"ANNUAL COOLING FUEL COST (DOLLARS)": 

INPUTCS:CS=CS*X 
240 PRINT : PRINT : Y= . 05 :F0RI=1T03 : IFI=HTHEN247 

245 Y=Y-.01:NEXT: IFH=4THENY=.025 

246 IFH=5THENY=.02 

247 GOSUB800 

250 PRINT" {CLEAR} THE FOLLOWING SECTION EVALUAT 
ES THE SAVINGS OBTAINED BY TURNIN 

G" 

255 PRINT"THE THERMOSTAT DOWN IN WINTER OR UP 
IN SUMMER FROM THE SETTING YOU" 



256 PRINT"HAVE BEEN US ING .": PRINT : PRINT"HEATIN 
G": PRINT 

260 PRINT"DEGREES TURNED DOWN DURING" : INPUT"DA 

y";X:S=INT(100*Y*HS*X)/100 
265 PRINT"SAVINGS =$"; S : PRINT" {DOWN} ADDITIONAL 

DEGREES TURNED DOWN DURING" 
270 INPUT"NIGHT" ;X: I=INT (100*Y*HS*X* . 3) /lOO : PR 

INT" {DOWN} SAVINGS=$" ; I 
280 S=S+I: PRINT" {DOWN} ANNUAL TOTAL HEATING SAV 

INGS =$ " ; S : PRINT : PRINT"COOLING {DOWN} " 

285 PRINT"DEGREES THERMOSTAT TURNED UP DURING 

COOLING" rINPUTX 
290 I=INT(100*CS*X*.02)/100:PRINT"SAVINGS =$"; 
I 

300 PRINT: PRINT"TOTAL ANNUAL SAVINGS =$";S+I:G 
OSUB800 

310 PRINT" {DOWN} ANNUAL SAVINGS FROM CAULKING A 

ND WEATHERSTRIPPING" 
315 PRINT"CHECK DRAFTS HOLDING CANDLE NEAR CRA 

CK ON WINDY DAY" 
320 PRINT" {DOWN}CHOOSE ONE OF FOLLOWING" : PRINT 

"1) WINDOWS WITH GOOD FIT" 
340 PRINT"2) SOME LEAKAGE" : PRINT" 3 ) RATHER DRA 

pipy" 

350 INPUTY:PRINT:PRINT"{DOWN}CHOOSE ONE OF FOL 
LOWING" : PRINT" 1) DOORS FIT GOOD" 

360 PRINT" 2) SOME LEAKAGE" : PRINT" 3 ) DRAFTY" : IN 
PUTI 

370 PRINT" {DOWN}CHOOSE ONE OF FOLLOWING" : PRINT 

380 PRINT"1) CAULKING AND WEATHERSTRIPPING GOO 
D" 

390 PRINT"2) NEED REPAIR" : PRINT" 3 ) NO CAULKING 

OR WEATHERSTRIPPING" : INPUTS 
400 PRINT"FLOOR AREA OF HOUSE -":INPUT"SQ FT"; 
X 

410 X=X* (Y+I+S-3)/100*FI:X=INT(X*100)/100:PRIN 
T 

420 PRINT" {CLEAR} ANNUAL SAVINGS FOR CAULKING A 
ND WEATHERSTRIPPING= $";X:GOSUB 

800 

440 PRINT: PRINT: PRINT" ANNUAL SAVINGS FROM CEIL 

ING INSULATION": PRINT: PRINT 
450 Y=38:INPUT"CEILING R VALUE" ;X: IFH<3THENY=26 
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455 IFH=3THENy=30 
460 IFH=4THENY=33 

465 PRINT"FIRST FLOOR AREA OF HOUSE (SQ FT)":I 
NPUTF 

470 R=Y2GOSUB900: I=R:R=X:GOSUB900:X=R:X=INT (10 

0* (X-I) *F*FI)/100 
475 IFX<OTHENX=0 

480 PRINT"ANNUAL SAVINGS BY BRINGING CEILING R 

UPTO";Y;" = $" ; X:GOSUB800 
550 INPUT" IS HOUSE ON PILLARS OR HAVE AN UNHEA 

TED BASEMENT" ;B$ 
555 IFASC(B$)=78THEN799 

560 PRINT"CHOOSE FOUNDATION FACTOR FROM LIST B 
ELOW{DOWN}" 

565 PRINT" {DOWN} FACTOR FOUNDATION CHARACTERIST 
ICS" 

570 PRINT"0.5 BUILDING WITH TIGHT CRAWL SPACE" 

580 PRINT"0.5 BUILDING WITH TIGHT BASEMENT 
(UNHEATED) " 

590 PRINT"0.8 STONE WALL BASEMENT (UNHEATED)" 
600 PRINT"0.8 2 FT OR MORE OF BASEMENT WALL 

EXPOSED (UNHEATED)" 
610 PRINT"0.8 CRAWL SPACE SKIRTED" 
620 PRINT"1.0 BUILDING ON PILLARS WITH NO SKIR 
TS" 

625 PRINT" {DOWN}FLOOR FACTOR FROM ABOVE TABLE" 
IINPUTJ 

627 Y=ll : IFH>1THENY=13 : IFH>2THENY=19 : IFH>3THEN 
Y=22 

628 R=Y:GOSUB900:Q=R:PRINT"CURRENT R FACTOR FO 
R FLOOR" tINPUTR 

630 GOSUB900:X=J* (R-Q) *F*FI : PRINT: PRINT:X=INT ( 

X*100) /lOO : IFX<OTHENX=0 
640 PRINT"ANNUAL SAVINGS BY INCREASING FLOOR R 

VALUE TO ";Y;" =$";X 
645 GOSUB800 

799 END 

800 PRINT" 

": RETURN 

828 R=Y:GOSUB900:I=R 

899 REM CONDUCTION FACTOR SUBROUTINE 
9t)0 IFR<11THEN920 

901 IFR<12THENR=. 077: RETURN 

902 IFR<15THENR=.066:RETURN 
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903 IFR<20THENR=. 048: RETURN w 

904 IFR<24THENR=:. 042: RETURN 

905 IFR<28THENR=.036:RETURN ^ 

906 IFR<34THENR=. 031: RETURN 
910 R=. 025: RETURN 

920 R=.5-.0385*R:RETURN ^ 

Program 4. Atari Version. w 

1 REM ENERGY WORKBOOK IS BASED ON FEA ^ 
/D-77/117, APRIL 1977 ATARI VERSIO ^ 
N 

2 L = 96 

3 PRINT " frt FQR^irf.'irf?IA'»M;»Msltlira" a DIM w 
A* (40) , B* (40) , C* <40) , D* (40) , BB* (20* 
5),BL(4),X<10),Y(10),FH(8),FC<8) ^ 

4 PRINT "<b0WN> ITEMS NEEDED : t DOWN> " s P w 
RINT "1) STATE & CITY" 

5 PRINT "2) HEATING FUEL COST" s REM E. ^ 
G. .37 CENTS/CU FT w 

6 PRINT "3) COOLING COST":REM E.G. 5. 
14 CENTS/KWH 

7 PRINT "4) SQ FT OF SINGLE GLASS WIN ^ 
DOWS" ^ 

8 PRINT "5) ANNUAL HEATING AND":? " 

€3 SPACESJCOOLING FUEL COST" ^ 

9 PRINT "6) CHECK FOR LEAKAGE AROUND ^ 
WINDOWS":? "{3 SPACES>AND DOORS WIT 

H CANDLE" ^ 

10 PRINT "7> FLOOR AREA - SQ FT" w 

11 PRINT "8) CEILING R VALUE":REM USE 

TABLE PROVIDED 

12 PRINT "9> FIRST FLOOR AREA" W 

13 PRINT "10) FLOOR R VALUE IF BASEME ^ 
NT IS USED": PRINT "€4 SPACES30R HO 

USE IS ON":? "<:4 SPACES J P I LL ARS " 

14 ? :? "STATE (DON'T ABBREV I ATE ) " : I NP ^ 
UT B«:FOR 1=1 TO L:READ C* 

15 TRAP 20: IF B*=C* ( 1 , LEN ( B« ) ) THEN B ^ 

42 



*=C*!TRAP 40000:READ D* 
20 NEXT IsFOR 1=1 TO 4 s BL ( I ) =0 : NEXT I 

: 1 = 1 s Y=LEN <D*) : J=l 
25 X=ASC <D* ( I ) > : IF X=32 THEN 45 
30 BB« ( J420+BL < J ) +1 ) =CHR« ( X ) : BL ( J > =BL 

(J)+l:GOTO 55 
45 1 = 1 + 1 : X ( J) =VAL (D« < I ) ) : I = I +2 : Y < J ) =V 

AL (D« < I ) ) 
47 I=I+lsJ=J+l 

55 IF KY THEN I = I + l:BOTO 25 

58 J=J-1: PRINT " tCLEAR><:6 SPACES>";B* 

;"t3 DOWN>":FOR 1=1 TO J 
60 PRINT I;". " ; BB* ( I »20+l , I *20+BL ( I > 

):NEXT i 

65 PRINT SPRINT sPRINT "CHOOSE « FOR 
NEAREST CITY": INPUT I : H= X < I ) : C=Y ( I 
):REn ZONES 

SO X=l:FOR 1=1 TO 5: IF C=I THEN 90 

85 X=X-0. 25: NEXT I 

90 HC=X:X=0:FOR 1=0 TO 5: IF H=I THEN 
100:REM HF 8c CF ARE HEAT AND COOL 
FACTORS 

95 X=X+0.5:NEXT I 

100 HF=X:PRINT :PRINT 

110 FOR 1=1 TO 8:READ B* , T 1 , T2 : FH < I ) = 
Tl : FC < I > =T2: PRINT I;". ";B«:NEXT 
I 

115 PRINT "£2 DOWNJCHOOSE # FOR HEATI 

NG FUEL" : INPUT J 
120 PRINT " <:CLEAR>COST PER UNIT FOR H 

EATING FUEL < CENTS ) " : I NPUT S:S=S/ 

100 

125 HI=S«FH<J) *HF:REM HEAT INDEX 

126 PRINT "€2 DOWNJCHOOSE # FOR COOLI 
NG FUEL" : INPUT J 

127 PRINT "£DOWN>COST PER UNIT FOR CO 
OLING FUEL <CENTS> ": INPUT S:S=S/10 
O 

130 CI=S«FC ( J ) »HC: FI=HI+CI : REM COOL A 

ND FUEL INDEX 
145 PRINT " <:D0WN> INPUT « OF SQ FT OF 
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SINGLE GLASS":? "WINDOWS, DO NOT" 
150 PRINT "COUNT STORM WINDOWS OR SLI 

DING GLASS DOORS " ; : I NPUT X 
170 X=INT <X*100*FI to. 65) /lOO 
175 PRINT " tCLEARJANNUAL SAVINGS DUE 

TO":? "STORM WINDOWS= ";X:X=0.85: 

GOSUB 800 

ISO PRINT rPRINT "IS HEATING FUEL USE 
D FOR OTHER":? "PURPOSES, E.G. CO 
OKING" 

190 INPUT B*:IF ASC(B*)=78 THEN X=l 
200 PRINT "ANNUAL HEATING FUEL COST < 

DOLLARS) " : INPUT HS: HS=HS» X : PR I NT 

:PRINT :X=0.6 
210 PRINT "IS COOLING FUEL USED FOR O 

THER":? "PURPOSES, E.G. LIGHTING" 
220 INPUT B«:IF ASC(B*)=78 THEN X=l 
230 PRINT "ANNUAL COOLING FUEL COST ( 

DOLLARS) " : INPUT CS: CS=CS»X 
240 PRINT :PRINT :Y=0.05:F0R 1=1 TO 3 

: IF I=H THEN 247 

245 Y=Y-0. Ol : NEXT I: IF H=4 THEN Y=0.0 
25 

246 IF H=5 THEN Y=0.02 

247 GOSUB 800 

250 PRINT "tCLEAR>THE FOLLOWING SECTI 
ON EVALUATES THE<3 SPACES3 SAV I NGS 
OBTAINED BY TURNING" 

255 PRINT "THE THERMOSTAT DOWN IN WIN 
TER OR UP<:3 SPACES>IN SUMMER FROM 

THE SETTING" 

256 PRINT "YOU HAVE BEEN USING. ":PRIN 
T :PRINT "HEATING" 

260 PRINT "DEGREES TURNED DOWN DURING 
DAY": INPUT X : S= I NT < 1 00 « Y «HS * X ) /I 
00 

265 PRINT "SAVINGS =*";S:PRINT " 

<:D0WN> ADDITIONAL DEGREES TURNED D 
OWN DURING NIGHT"; 

270 INPUT X: I=INT ( 100«Y*HS*X*0. 3) /lOO 
: PRINT " CD0WN3 SAVINGS = «" ; I 
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280 S=S+I: PRINT " <DOWN> ANNUAL TOTAL H 

EATING SAVINGS =*";B:PRINT :PRIN 

T "COOLINGCDOWND " 
285 PRINT "DEGREES THERMOSTAT TURNED 

UP DURING COOLING" INPUT X 
290 I=INT < 100«CS«X*0. 02) / 100: PRINT "S 

AVINGS =*" ; I 
300 PRINT :PRINT "TOTAL ANNUAL SAVING 

S =*" ; S+I : GOSUB 800 
310 PRINT :? "ANNUAL SAVINGS FROM CAU 

LKING AND":? "WEATHER STRIPPING" 
315 PRINT "CHECK DRAFTS HOLDING CANDL 

E NEAR":? "CRACK ON WINDY DAY" 
320 PRINT :? "CHOOSE ONE OF FOLLOWING 

":PRINT "1) WINDOWS WITH GOOD FIT 

■I 

340 PRINT "2) SOME LEAK AGE ": PR I NT "3) 

RATHER DRAFTY" 
350 INPUT Y:PRINT :PRINT "<CLEAR>CHOO 

SE ONE OF FOLLOWING" : PRINT "1) DO 

ORS FIT WELL" 
360 PRINT "2> SOME LEAK AGE ": PR I NT "3) 

DRAFTY" : INPUT I 
370 PRINT " <CLEAR>CHOOSE ONE OF FOLLO 

WING" : PRINT 
380 PRINT "D CAULKING AND":? " 

<:3 SPACES>WEATHER STRIPPING GOOD" 
390 PRINT "2) NEED REPA I R " : PR I NT "3) 

NO CAULKING":? " €3 SPACES> WEATHER 

STRIPPING" : INPUT S 
400 PRINT "FLOOR AREA OF HOUSE -":? " 

SQ FT" ; : INPUT X 
410 X = X* <Y + I+S-3) /100*FI:X = INT(X»100) 

/ lOO: PRINT 
420 PRINT " CCLEAR>ANNUAL SAVINGS FOR 

CAULKING AND":? "WEATHER STRIPPIN 

G= «";X:GOSUB 800 
440 PRINT : PRINT :PRINT "ANNUAL SAVIN 

GS FROM CEILING I NSUL AT I ON " : PR I NT 
: PRINT 

450 Y=38:? "CEILING R VALUE " ; : I NPUT X 
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: IF H<3 THEN Y=26 
455 IF H=3 THEN Y=30 
460 IF H=4 THEN Y=33 

465 PRINT "FIRST FLOOR AREA OF HOUSE 

<SQ FT) " : INPUT F 
470 R=Y:GOSUB 900 : I =R : R = X : GOSUB 900: X 

= Rs X = INT < 100* <X-I ) *F«FI ) /lOO 
475 IF X<0 THEN X=0 

480 PRINT "ANNUAL SAVINGS BY BRINGING 
CEILING R":? "UP TO ";Y;" = *";X 

:GOSUB 800 
550 ? "IS HOUSE ON PILLARS OR HAVE"s? 

"AN UNHEATED B ASEMENT " ; : I NPUT B* 
555 IF ASC(B*)=78 THEN 799 
560 PRINT "CHOOSE FOUNDATION FACTOR F 

ROM LIST BELOWCDOWNJ " 
565 PRINT " CDOWNJFACTOR FOUNDATION CH 

ARACTERISTICS" 
570 PRINT "0.5 BUILDING WITH TIGHT CR 

AWL SPACE" 
580 PRINT "0.5 BUILDING WITH TIGHT BA 

SEMENT (UNHEATED)" 
590 PRINT "0.8 STONE WALL BASEMENT (U 

NHEATED) " 

600 PRINT "0,8 2 FT OR MORE OF BASEME 
NT WALL EXPOSED (UNHEATED)" 

610 PRINT "0.8 CRAWL SPACE SKIRTED" 

620 PRINT "l.O BUILDING ON PILLARS WI 
TH NO SKIRTS" 

625 ? r PRINT "FLOOR FACTOR FROM ABOVE 
TABLE" : INPUT J 

627 Y=11:IF H>1 THEN Y=13:IF H>2 THEN 

Y=19:IF H>3 THEN Y=22 

628 R=Y:GOSUB 900 : Q=R : PR I NT "CURRENT 
R FACTOR FOR FLOOR": INPUT R 

630 GOSUB 900: X=J« (R-D) »F*FI : PRINT :P 
RINT : X=INT (X*100) /lOO: IF X<0 THE 
N X=0 

640 PRINT "ANNUAL SAVINGS BY INCREASI 

NG FLOOR R VALUE TO ";Y;" =*";X 
645 GOSUB 800 
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799 

800 

828 
899 
900 
901 
902 
903 
904 
905 
906 
910 
920 



RESTORE : PRINT : PRINT : GOSUB 800! 
PRINT :PRINT :L=96sGOTO 14 

PRINT " 

RETURN 

R=Y:GOSUB 900:I=R 

REM CONDUCTION FACTOR SUBROUTINE 
IF R<11 THEN 920 

R=0. 077: RETURN 
R=0. 066: RETURN 
R=0. 048: RETURN 



IF R<12 THEN 
IF R<15 THEN 
IF R<20 THEN 
IF R<24 THEN R=0. 
IF R<28 THEN R=0, 
IF R<34 THEN R=0, 
R=0. 025: RETURN 
R=0. 5-0. 0385*R: RETURN 



042: RETURN 
036s RETURN 
031 : RETURN 



Prosram 5. Color Computer Version. 



REM ENERGY WORKBOOK IS BASED ON FEA/D-77/1 

17, APRIL 1977 
L=96 

CLS:PRINTTAB( 9) "ENERGY WORKBOOK" 
PRINT" ITEMS NEEDED FOR ENERGY WORKBOOK" 

INT"1) STATE": PRINT" 2) CITY" 
PRINT" 3) HEATING FUEL COST" : PRINT" 

.G. .37 CENTS/CU FT) " 
PRINT" 4) COOLING FUEL COST": PRINT" 

.G. 5.14 CENTS/KWH) " 
PRINT" 5) SQUARE FT OF SINGLE GLASS 

N HOUSE" : INPUT"CONTINUE" ; ZZ$ : CLS 
PRINT" 6) ANNUAL HEATING AND COOLING 

UEL COST" 
PRINT "7) CHECK FOR LEAKAGE AROUND 

WINDOWS AND DOORS WITH CANDL 



E" 

10 PRINT"8) 

11 PRINT" 9) 



FLOOR AREA OF HOUSE - SQ FT" 
CEILING R VALUE - USE TABLE 
ROVIDED WITH INSTRUCTIONS" 

12 PRINT" 10) FIRST FLOOR AREA - SQ FT" 

13 PRINT" 11) FLOOR R VALUE IF BASEMENT IS 

NHEATED OR HOUSE IS ON PILLAR 
S" 



PR 



(E 
(E 
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14 PRINT: INPUT"STATE (DON'T ABBREVIATE) B$ : FO 

RI=1T0L:READC$ 

15 IFLEFT$ (B$^7)=LEFT$ (C$ , 7 ) THENB$=C$ : READD$ 
2 NEXT : F0RI = 1T04 : B$ (I ) =" " : NEXT : 1 = 1 : Y=LEN (D$ ) 

: J=l 
22 CLS 

25 X=ASC(MID$ (D$,I,1) ) : IFX=32THEN45 
30 B$ (J)=B$ (J)+CHR$ (X) :GOT055 

4 5 I=I+1:X(J)=VAL(MID$ (D$,I,1) ) : 1=1+2 : Y ( J ) =VA 

L(MID$(D$,I,1)) 
47 1 = 1+1 :J=J-I-1 
55 IFKY THENI = I+l:GOT025 

58 J=J-1:PRINT:F0RI=1T0J:PRINTI;TAB(5) ;B$ (I) ; 

TAB (20) ;B$ :NEXT 
65 PRINT: INPUT"CHOOSE # FOR NEAREST CITY"; I: H 

=X(I) :C=Y(I) :REM ZONES 
70 CLS 

80 X=1:F0RI=1T05:IFC=I THEN90 
85 X=X-.25:NEXT 

90 HC=X:X=0:FORI=0TO5:IFH=I THEN100:HF & CF A 

RE HEAT AND COOL FACTORS 
9 5 X=X+.5:NEXT 
100 HF=X: PRINT 

110 F0RI=1T08:READB$,FH(I) ,FC(I) :PRINTTAB(5) ;I 
;B$:NEXT 

115 PRINT: INPUT"CHOOSE # FOR HEATING FUEL";J 
120 INPUT"COST PER UNIT FOR HEATING FUEL (C 
ENTS) ";S:S=S/100 

125 HI=S*FH(J) *HF:REM HEAT INDEX 

126 PRINT: INPUT"CHOOSE # FOR COOLING INDEX"; J 

127 INPUT"COST PER UNIT FOR COOLING FUEL (CENTS 
) ";SrS=S/10« 

130 CI=S*FC(J) *HC:FI=HI+CI:REM COOL AND FUEL I 

NDEX 
135 PRINT 

145 PRINT"INPUT # OF SQUARE FT OF SINGLE GLAS 
S WINDOWS" 

150 PRINT"DO NOT COUNT STORM WINDOWS OR SLI 

DING GLASS DOORS" ;: INPUTX 
170 X=INT(X*100*FI*.65)/100 

175 PRINT"ANNUAL SAVINGS DUE TO STORM WIND 

OWS = $";X:X=.85:GOSUB800 
180 PRINT: PRINT"IS HEATING FUEL USED FOR OTHER 

PURPOSES, EoG, COOKING"; 
190 INPUTB$ :IFASC(B$)=78THENX=1 
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200 INPUT"ANNUAL HEATING FUEL COST (DOL 

LARS) HS:HS=HS*X:PRINT:X=.6 
210 PRINT"IS COOLING FUEL USED FOR OTHER PURPO 

SES, E.G. LIGHTING-; 
220 INPUTB$:IFASC(B$)=78THENX=1 

230 INPUT"ANNUAL COOLING FUEL COST (DOL 

LARS) ";CS:CS=CS*X 
240 PRINT:Y=.05:FORI=1TO3:IFI=H THEN247 

245 Y=Y-.01:NEXT:IFH=4THENY=.025 

246 IFH=5THENY=.02 

247 CLS 

2 50 PRINT^THE FOLLOWING SECTION EVALUATES THE 

SAVINGS OBTAINED BY" 
2 51 PRINT"TURNING THE THERMOSTAT DOWN IN THE 
WINTER OR UP IN SUMMER" 

2 52 PRINT" FROM THE SETTING YOU HAVE BEEN USING 

. " : PRINT:PRINT:PRINT"HEATING" : PRINT 
260 INPUT"DEGREES TURNED DOWN DURING THE DAY" 

;X:S=INT(100*Y*HS*X)/100 
265 PRINT"SAVINGS =$"; S:PRINT"ADDITIONAL DEGRE 

ES TURNED DOWN DURING THE NIGHT"; 
270 INPUTX:I=INT(100*Y*HS*X*.3)/100:PRINT"SAVI 

NGS=$"; I 

280 S=S+I: PRINT" ANNUAL TOTAL HEATING SAVINGS = 
$ " ; S : PRINT : PRINT"COOLING" : PRINT 

285 INPUT"DEGREES THERMOSTAT TURNED UP DURI 
NG COOLING" ;X 

290 I=INT(100*CS*X*.02)/100:PRINT"SAVINGS =$"; 
I 

300 PRINT: PRINT"TOTAL ANNUAL SAVINGS =$";S-M:G 
OSUB800 

310 PRINT: PRINT" ANNUAL SAVINGS FROM CAULKING A 

NDWEATHERSTRIPPING" 
315 PRINT" CHECK DRAFTS HOLDING CANDLE NEARCRAC 

K ON WINDY DAY" 

3 20 PRINT"CHOOSE ONE OF FOLLOWING" : PRINT" 1) 

WINDOWS WITH GOOD FIT" 
3 40 PRINT" 2) SOME LEAKAGE" : PRINT" 3) RATH 
ER DRAFTY" 

350 INPUTY:CLS:PRINT:PRINT"CHOOSE ONE OF THE F 

OLLOWING" 
355 PRINT" 1) DOORS FIT GOOD" 

360 PRINT" 2) SOME LEAKAGE" : PRINT" 3) DRAF 

TY":INPUTI 
365 CLS 
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370 PRINT:PRINT:PRINT"CHOOSE ONE OF THE FOLLOW 
ING" 

380 PRINT" 1) CAULKING AND WEATHER- 

STRIPPING GOOD" 

381 PRINT" 2) NEED REPAIR" : PRINT" 3) NO CA 
ULKING OR WEATHER- STRIPPING" 

382 INPUTS 
395 CLS 

4 00 INPUT" FLOOR AREA OF HOUSE-SQ FT" ; X 
410 X=X* (Y+I+S-3)/100*FI:X=INT(X*100)/100:PRIN 
T 

4 20 PRINT" ANNUAL SAVINGS FOR CAULKING AND WEAT 

HERSTRIPPING= $ " ; X :GOSUB800 
440 PRINT: PRINT: PRINT" ANNUAL SAVINGS FROM CEIL 

ING INSULATION": PRINT: PRINT 

450 Y=38:INPUT"CEILING R VALUE" ; X: IFH<3THENY=2 

6 

455 IFH=3THENY=30 
460 IFH=4THENY=33 

465 INPUT"FIRST FLOOR AREA OF HOUSE (SQ 
FT) "; F 

470 R=Y :GOSUB900 : I=R : R=X :GOSUB900 : X=R : X=INT (10 

0*(X-I) *F*FI)/100 
475 IFX<0THENX=0 

4 80 PRINT" ANNUAL SAVINGS BY BRINGING CEILING R 

UP TO";Y;" = $";X:GOSUB800 

5 50 INPUT" IS THE HOUSE ON PILLARS OR HAVE AN U 

N HEATED BASEMENT" ;B$ 
555 IFASC(B$)=78THEN799 

560 PRINT"CHOOSE FOUNDATION FACTOR FROM LIST 
BELOW" 

565 PRINT" FACTOR FOUNDATION CHARACTERISTICS" 
570 PRINT" 0.5 BUILDING WITH TIGHT CRAWL 
SPACE" 

580 PRINT" 0.5 BUILDING WITH TIGHT BASEMENT 

(UNHEATED) " 
590 PRINT" 0.8 STONE WALL BASEMENT 

(UNHEATED) " 
600 PRINT" 0.8 2 FT OR MORE OF BASEMENT 

WALL EXPOSED (UNHEATED) " 
610 PRINT" 0o8 CRAWL SPACE SKIRTED" 
620 PRINT"1.0 BUILDING ON PILLARS WITH NO 

SKIRTS" 

6 25 INPUT" FLOOR FACTOR FROM ABOVE TABLE"; J 

6 27 Y=ll : IFH>1THENY=13 : IFH>2THENY=19 : IFH>3THEN 
Y = 22 
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628 R=Y:GOSUB900:Q=R:INPUT"CURRENT R FACTOR FO 
R FLOOR" ;R 

630 GOSUB900:X=J*(R-Q)*F*FI:PRINT:PRINT:X=INT( 

X*100) /100 : IFX<OTHENX=0 
640 PRINT" ANNUAL SAVINGS BY INCREASING FLOO 

R R VALUE TO ";Y;" =$";X 
645 GOSUB800 

799 RESTORE :GOSUB800 : PRINT: L=96 :G0T014 

8 00 PRINT" ======:=:=:=================:==:=====" : RE 

TURN 

828 R=Y:GOSUB900:I=R 

899 REM CONDUCTION FACTOR SUBROUTINE 

900 IFR<11THEN920 

901 IFR<12THENR=.077:RETURN 

902 IFR<15THENR=. 066: RETURN 

903 IFR<20THENR=. 048: RETURN 

904 IFR<24THENR=.042:RETURN 

905 I FR<28THENR=. 036: RETURN 

906 IFR<34THENR=.031:RETURN 
910 R=. 025: RETURN 

920 R=.5-,0385*R:RETURN 



Program 6* TI-99 Version* 

1 REM energy workbook, TI version, is 
based on f ea/d-77/ 1 17, apr i 1 1977 

2 L = 96 

4 CALL CLEAR 

5 PRINT TAB (8) ; "energy workbook" 

6 PRINT TAB (9) 5 "items needed": : 

7 PRINT "1) state" 

8 PRINT "2) city" 

9 PRINT "3) heating fuel cost 

£11 SPACES3(e-g- .37 cents/cu ft)" 

10 PRINT "4) cooling fuel cost 

<.ll SPACES><e.g. 5.14 cents/kwh>" 

11 PRINT "5) square ft of single 

£9 SPACES>glass windows in house" 

12 PRINT "6) annual heating and 
<:iO SPACES>cool ing fuel cost" 

13 PRINT "7) check for leakage around 
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£4 SPACES>wi ndowB and doors" 

14 PRINT "8) floor area of house-sqft ^ 
■I 

15 PRINT "9) ceiling r value-use 

19 SPACES>table provided" w 

16 PRINT "lOfirst floor area-sq ft" 

17 PRINT "IDfloor r value if basemen 
tiZ SPACES>is unhealed or house is 
<:5 SPACES3on pillars" 

18 INPUT "state <don't abbreviate)? " 

5 B6'$ w 

19 FOR 1=1 TO L 

20 READ C* ^ 

21 IF SEG« <BB*, 1 , 7) OSEG* (C*, 1 , 7) THEN w 

24 

22 BB*=C« ^ 

23 READ D* w 

24 NEXT I 

25 FOR 1=1 TO 4 ^ 

26 Bt(I)="" w 

27 NEXT I 

2Q 1=1 ^ 

29 Y=LEN<D«> 

30 J=l 

31 X=ASC (SEG« (D«, I , 1 ) ) 

32 IF X=32 THEN 45 

33 B*(J)=B«(J)&CHR«(X) 
35 GOTO 55 

45 1 = 1 + 1 

46 XX (J)=VAL <SEG* <D*, I , 1 ) ) 

47 1 = 1+2 

48 YY<J>=VAL<SEG«(D*, I, 1> ) w 

49 1=1+1 

50 J = J + 1 ''^ 

55 IF I>=Y THEN 58 ^ 

56 1=1+1 

57 GOTO 31 ^ 

58 «J = i3 ~~ 1 

59 PRINT :: : 

60 FOR 1=1 TO J ^ 

61 PRINT I ; TAB <5) ; B* < I ) ; TAB ( 19) ; BB* ^ 

52 



















































w 


62 

o o> 


NEXT I 

DD T KIT » • « 










TOP neapest cixiy 




65 

A A 


: I 

H=XX < I ) 






so 


X = l 

r^Ur\ X — X lU D 






84 
85 

Q "7 

O / 


IF C=I THEN 90 
X=X-. 25 

MIT Y X T 








wr*— Y 






91 

92 


x=o 

FOR 1=0 TO 5 
X r n — X 1 rltlM X 






95 

Q A 


X=X+. 5 

Kicr Y X T 
IMC. A 1 X 








MP— Y 






102 

1 1 A 


PRINT : : : 

rUrC X — X lU o 






JL X ^ 


rtct-ix/ Do^ynrllX/ y 


CP i 1 \ 




X X *T 


ODTKIX XAli / R \ • T« 

rlAXnll IHJDlS/yXgl 


D D * 
£5 13 V 




1 1 R 


Kicr Y X T 

nti A 1 X 






1 1 A 
X X o 


rr\XlMi 5 S S 






XX/ 


TKIPIIX "r-Hr-knctt ik 

X nir^u 1 cnoo56 w 


TOP neaning tugx 




■ «J 








XIMivJI C^uau per 


tinxv. TOP rtGoiuxnQ 








\C6riT.5/ : So 


1 1 

X X. X 


Q — c: / 1 nn 
— 0/ X V 






X jLTj 


rix — o»rM lu / »r1n 




\^ 


1 'PA 
X jC O 


PR T MX • • • 






X jL / 


T Kl 1 IX II _ |_ _ _ _ 44 


fop cooling fuel 






" - "1 

a U 




128 


INPUT "cost per 
Tuiex \L.eni.9/ : 


unit fop cooling 

« Q 




1 Q 


— CJ / X \J\J 






1 "v n 

X Ov* 








131 

X 


FI=HI+CI 

PPTKiX • • • • 






1 A,C\ 
X *T v.* 


PPTMX ■■'irknii-f- il 


w 1 M > w I s> X 1 1 ^ A cr 






iP"i 1 m-a -« ^4 1 .« y 

QXdS5 WXnuClW5 






F" m windows op 


slidingtA SPACES> 
















53 



glass doors"; ^ 
150 INPUT X 

170 X=INT < X* 100«FI * . 65) / lOO ^ 
175 PRINT "annual savings due to stor ^ 
m windows = *";X 

177 X=.85 

178 GOSUB 800 ^ 

180 PRINT : : 

181 INPUT "is heating fuel used for ^ 
€4 SPACES3other purposes (e.g. coo ^ 
king ?"sBB« 

190 IF < ASC (BB*) 078) « <ASC (BB«) <>1 lO) w 

THEN 200 ^ 

191 X=l 

200 INPUT "annual heating fuel cost w 

tA SPACES> <dol 1 ars) ? " : HS ^ 
202 HS=HStX 

204 PRINT s : : ^ 

206 X=.6 ^ 
210 INPUT "is cooling fuel used for 

€4 SPACES>other purposes, e.g. w 

€8 SPACES3 lighting?":BB* ^ 

220 IF (ASC (BB«) 078) » ( ASC <BB«) <>1 10> 
THEN 230 

225 X=l w 
230 INPUT "annual cooling fuel cost 

<4 SPACES! (dol 1 ars) ? " s CS ^ 

235 CS=CS*X 

237 PRINT I : ! ^ 

240 Y=.05 

241 FOR 1 = 1 TO 3 

242 IF I=H THEN 247 ^ 

243 Y=Y-.01 

244 NEXT I 

245 IF H04 THEN 247 w 

246 Y=.025 

247 IF H05 THEN 249 

248 Y=.02 ^ 

249 GOSUB 800 w 

250 PRINT "the following section 
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<:7 SPACES>eval uates the savings 
<:7 SPACES>obt ai ned by turning the' 

252 PRINT "thermostat down in winter 
<:3 SPACES>or up in summer from th 
e-CA SPACES> sett i ng you have been 
using": : : : : 

256 PRINT "heating": : 

260 INPUT "degrees turned down during 

day? ":X 
262 S=INT< 100*Y»HS*X) /lOO 
265 PRINT "savings =* ";S 
267 INPUT "additional degrees turned 
<3 SPACES>down during night? ":X 
270 I = INT < 100*Y»HS*X». 3) /I 00 

272 PRINT "savings =*";I 

279 S=S+I 

280 PRINT "annual total heating savin 
gs=* ";S: : : 

282 PRINT "cooling": : 

285 INPUT "degrees thermostat turned 

upduring cooling? ":X 
290 I=INT(100*CS«X».02) /lOO 
295 PRINT "savings =* " ; I : : : 
300 PRINT "total annual savings = 

€6 SPACES>*" ; S+I 

305 GOSUB 800 
310 PRINT s : : 

312 PRINT "annual savings from caulki 
ng and weat her st r i pp i ng " : : 

315 PRINT "check drafts holding candl 
e near crack on windy day": : : 

320 PRINT "choose one of following" 

325 PRINT "<:3 SPACES>1) windows with 
good fit" 

330 PRINT "^3 SPACES32) some leakage" 

340 PRINT "<:3 SPACES>3> rather drafty 
II 

350 INPUT Y 

353 PRINT : : 

355 PRINT "choose one of -following" 

357 PRINT "€3 SPACES> 1 > doors fit goo 
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d<:il SPACES>2) some leakage 

<:13 SPACES>3) drafty" ^ 
360 INPUT I 

368 PRINT : s 

369 PRINT "choose one of following" ^ 

370 PRINT "<:3 SPACES>1) caulking and 
weather-ty SPACES! st r i pp i ng good 

€11 SPACESJ2) need repairsClS w 

SPACES>3) none exists" 
390 INPUT S 
400 INPUT "floor area of house - ^ 

€7 SPACES>sq ft? ":X 
405 X=X* ( Y+I+S-3) / 100*FI 
410 X=INT <X*100) /lOO ^ 
415 PRINT 

420 PRINT "annual savings for caulkin 

g and weat her st r i pp i ng =*";X w 
430 GOSUB 800 ^ 
440 PRINT : : : 

442 PRINT "annual savings from ceilin 

g insulation": : s ^ 
450 Y=38 

452 INPUT "ceiling r value? ":X ^ 

453 IF H>=3 THEN 455 ^ 

454 Y=26 

455 IF H<>3 THEN 457 ^ 

456 Y=30 ^ 

457 IF H<>4 THEN 459 

458 Y=33 ^ 

459 INPUT "first floor area of house ^ 
€3 SPACES><sq ft>? ":F 

465 R=Y ^ 

467 GOSUB 900 ^ 

468 I=R 

469 R=X ^ 

470 GOSUB 900 ^ 
472 X=R 

474 X=INT ( loot < X-I > «F*FI ) / lOO ^ 

475 IF X>=0 THEN 477 ^ 

476 X=0 

477 PRINT "annual savings by bringing ^ 
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ceiling r up to ";Y;" = *";X 


480 


GOSUB 800 




550 


INPUT "is the house on pillars or 






have an unheated basement? " z BB 








555 


IF ( ASC (BB*) < >89) « ( ASC (BB«) 0121 ) 






THEN 700 


560 


PRINT "choose foundation -factor 






SPACES>from list below": : : 




565 


PRINT " factor^4 SPACES> f oundat i 




on 




566 


PRINT "^12 SPACES>characteristics" 




570 


m m m 

PRINT "<:3 SPACES>0.5 building wi 






th tight crawl space" 


w 


580 


PRINT " SPACES>0.8 building wi 






th tight basement (unheated) " 




590 


PRINT '• SPACES>0.8 stone wall b 






asement (unheated)" 


600 


PRINT "<:3 SPACES>0.8 2 ft or more 






of basement wall exposed (unheat 


w 




ed) " 




610 


PRINT "t3 SPACESJ0.8 crawl space 






skirted" 




620 


PRINT "€3 SPACESJl.O building on 




pillars with no skirts": : 




625 


INPUT "floor factor from above tb 






1 ? " : J 




627 


Y=l 1 




628 


IF H<=1 THEN 634 




629 


Y=13 


630 


IF H<=2 THEN 634 




631 


Y=19 




632 


IF H<=3 THEN 634 


633 


Y = 22 




634 


R=Y 




635 


GOSUB 900 


637 


Q=R 




638 


INPUT "current r factor for floor 






7 " I R 




640 


GOSUB 900 




642 


X=J« (R-Q) «F«FI 
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644 
646 
648 
649 

650 



PRINT : s 
X=INT<X*100) /lOO 
IF X>=0 THEN 650 

x=o 

PRINT "annual savings 



by increasi 



655 
TOO 
705 
710 
715 
720 
725 
BOO 

805 
828 
829 
830 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
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ng -floor r value 
€4 SPACES>«";X 
GOSUB 800 
RESTORE 
PRINT s : : 
GOSUB 800 
PRINT : s 
L=96 
GOTO 18 

PRINT " 



to";Y; 



RETURN 
R=Y 

G0SUB900 
I=R 

REM conductin factor 
IF R<11 THEN 922 
IF R>=12 THEN 904 
R=. 077 
RETURN 
IF R>=15 
R=. 066 
RETURN 
IF R>=20 
R=. 048 
RETURN 
IF R>=24 
R=. 042 
RETURN 
IF R>=28 
R=. 036 
RETURN 
IF R>=34 
R=. 031 
RETURN 
R=. 025 
RETURN 



subr out i ne 



THEN 907 



THEN 910 



THEN 913 



THEN 916 



THEN 919 



Xjiiiiii/' 

\^ 

\ssigiiiJ 
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922 R=.5-.0385»R 

923 RETURN 



Prosram 7. DATA Statements* 

1000 DATACALIFORNIA^LOSANGELES 1 4 SANFRANCISCO 

3 4 SACRAMENTO 1 3 
1010 DATACOLORADO, DENVER 3 4 DURANGO 4 4 ASPEN ~ 
4 5 

1020 DATAALABAMA, MONTGOMERY 1 2 BIRMINGHAM 1 3 

HUNTSVILLE 2 3 
1030 DATAAR I ZONA, PHOENIX 1 3 FLAGSTAFF 3 3, CONN 

ECTICUTT, HARTFORD 3 5 
1040 DATANEW MEXICO , ROSWELL 2 3 ALBUQUERQUE 3 3 

SANTAFE 3 4 

1050 DATAUTAH.SALTLAKECITY 3 4 MOAB 4 4, IDAHO, B 

OISE 3 5 POCATELLO 4 4 
1070 DATAMONTANA, BILLINGS 4 5 , OREGON , PORTLAND 2 
5 BAKER 3 5 

1090 DATAWASHINGTON, SEATTLE 3 5 , NEVADA, RENO 3 3 

LASVEGAS 1 3 
1110 DATANORTH DAKOTA, GRANDFORKS 5 5, OKLAHOMA, 

KLAHOMACITY 2 3 
1120 DATASOUTH DAKOTA, SIOUXFALLS 4 4 PIERRE 4 5 

1130 DAT ANEBRASKA, OMAHA 3 4 , KANSAS , WICHITA 2 4 ^ 
TOPEKA 3 4 

1160 DATATEXAS, DALLAS 1 3 HOUSTON 1 2 BROWNSVIL 

LE 1 AMARILLO 2 3 
1170 DATALOUISIANA,NEWORLEANS 1 2 SHREVEPORT 1 

3 

1180 DATAARKANSAS,LITTLEROCK 1 3 FAYETTEVILLE 2 
3 

1190 DATAMISSOURI, SPRINGFIELD 2 3 STLOUIS 2 4 K 

ANSASCITY 3 4 
1200 DATAIOWA,DESMOINES 3 4 SIOUXCITY 4 4,VERM0 

NT,MONTPELIER 4 5 
1210 DATAMINNESOTA, MINNEAPOLIS 4 5 DULUTH 5 5,N 

EW HAMPSHIRE, CONCORD 4 5 
1220 DATAWISCONSIN, MADISON 4 4 EAUCLAIRE 4 5,RH 

ODE ISLAND, PROVIDENCE 3 5 
1230 DATAILLINOIS, CHICAGO 3 4 SPRINGFIELD 2 4,V 

IRGINIA, RICHMOND 2 4 
1240 DATAMICHIGAN, DETROIT 3 4 GRANDRAPIDS 4 5 S 

AULTST. MARIE 5 5 
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1270 DATAINDIANA, INDIANAPOLIS 3 4 EVANSVILLE 2 

4 , WYOMING rCASPER 4 5 
1290 DATATENNESSEE, MEMPHIS 2 3 KMOXVILLE 2 4 CH 

ATTANOOGA 2 3 
1300 DATAMISSISSIPPI, JACKSON 1 2 TUPELO 1 3, KEN 

TUCKY, LOUISVILLE 2 4 
1320 DATAWEST VIRGINIA, CHARLESTON 3 4,MASSACHUS 

ETTS, BOSTON 3 5 
1330 DATAFLORIDA, MIAMI 1 JACKSONVILLE 1 2,0HI 

0, COLUMBUS 3 4 
1340 DATAGEORG I A, SAVANNAH 1 3 ATLANTA 2 3, MAINE 

.PORTLAND 4 5 
1350 DATASOUTH CAROLINA, CHARLESTON 1 3, NEW JERS 

E Y.NEWARK 2 4 
1360 DATANORTH CAROLINA, RALEIGH 2 3 ASHEVILLE 2 

4 WILMINGTON 1 3 
1390 DATAPENNSYLVANIA, PITTSBURGH 3 4, MARYLAND, B 

ALTIMORE 2 4 
1410 DATANEW YORK,NEWYORK 3 4 ALBANY 4 5,DELAWA 

RE,WILMINGTOON 2 4 
1480 DATAERROR 

1500 DATAOIL/G ALLON ,1,0 ,NATGAS/CUFT ,120,150, ELE 

CTRICITY/KWH,30,15 
1510 DATAWOOD/CORD ,.01,0, LPG/CUFT ,50,60, LPG/LBS 

,6,7, LPG/G ALLON ,1,3,1.5 
1520 DATACOAL/TON, .006,0 
2000 END 
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Energy 
Plot 



Energy Plot 



Note: The data plotted by this program must be stored in files created 
by the ''Energy Data Base'' program in this book. For the OSl Atari, 
Apple, and Color Computer versions, the program expects the data 
files to be stored on disk. The VIQ PET/CBM, 64, and TI versions 
expect the data to be stored on tape. 

This program produces bar charts of energy use, energy cost, and 
cost/energy for the data created in the data base program. It is set 
up to handle files for: "NATGAS," "ELECT," "COAL," "OIL" and 
"WOOD," overlaying the bars for each successive year in different 
colors. To overcome the problem of one year overwriting another, 
an algorithm was developed which PEEKs the screen at the top of 
the new bar and POKEs the new color only as long as the color 
remains the same. This will cause the second year's data to 
sometimes exactly overwrite the first year's, but more often it will 
cause a short bar to be placed above the first bar or a bar to start in 
the interior of the first and extend to the abscissa of the graph. This 
routine will thus allow multiple years* data to be displayed 
simultaneously for each month of the year. 

This program was originally written on the OSI 4P and on the 
5K version of the VIC-20. The routines are very similar except for 
the location of the screens, width of the screens, and positions of 
the origins of the graphs (upper left corner = V, width of screen = 
D, upper left corner of the color screen = E+ V, and the origin of 
the graph = T). Having these variables defined at the beginning of 
the program will help make the conversion to other memory 
mapped video systems a little easier. 

When the OSI version is run, it must first clear the color 
screen (line 35). This is not necessary on the VIC, as the lower 
three bits of the color screen are set by the CLR command. Line 40 
sets the screen positions, and widths of the screens, and turns on 
the color in the OSI version. Lines 50-70 clear the screen, print the 
heading, accept an input for the number of years of data (N), and 
read in the symbols for the months (M$). 

The DIMension statement is variable for the Energy (E), the 
Cost (D), and the variable to be plotted (Z). Lines 80-170 input the 
data files from disk or tape. Lines 180 to 210 plot the energy, cost. 
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and rate, and turn the color off (in the OSI version). The subroutine 
to get the data from tape or disk is located in lines 220-240. The 
main plotting subroutine is located in lines 250-300. Line 290 
detects the SHIFT key on the OSI and any key on the VIC-20 for 
plotting the next year or the next graph. The bar graph generation 
routine is located in lines 310-350. 

Different symbols and different colors are used on the OSI for 
each year of data. The VIC-20 version uses the same symbol and 
different colors for each year of data. This was done because a 
convenient group of symbols were in a contiguous area of the 
character table (and because I have a black and white monitor on 
the OSI). VIC-20 users may also use different characters if they 
desire by changing the variable CH to vary with I. Similarly, users 
may let the color (CO) vary or set it to a single color in line 270. 

Lines 330 and 340 provide the bar overlaying logic. This can 
be removed and the routine can be modified to plot one year of 
data at a time by calling the bar blanking routine in line 460 after 
each year of data is plotted. Lines 360 to 390 determine the 
maximum (MX) and the minimum (MI), and set up the scaling 
factor PR. Lines 400-440 print the labels and draw the ordinant and 
abscissa. Line 420 POKEs the abscissa and line 430 POKEs the 
abscissa labels (the months of the year). 

Line 440 places the tic marks on the ordinant, and line 460 
blanks out the bars on the OSI version. The VIC-20 version doesn't 
need this subroutine since it has a clear screen command. OSI 
users who have the 3.3 DOS can also replace this line with a clear 
screen command. Users interested in plotting a single year at a 
time may want to increase the resolution of the bar graphs by 
using the techniques discussed by David Swaim ("High Resolution 
Bar Graphs for the PET," COMPUTE!, October 1981, #10, pp. 
143-144). 



Atari Notes For ''Energy Plot*' 

Instead of merely converting the VIC-20 or OSI version of "Energy 
Plot" to the Atari, a custom program was written in order to 
exploit some of the Atari^s special features, such as high-resolution 
graphics. 

The program will display three line (versus bar) graphs for 
each year of energy data (see the figure). The data, fuel and fuel 
cost, should have been previously entered with the Atari version of 
"Energy Data Base" and saved on disk. The program will ask you 
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to type the first letter of tfie appropriate file (E for Electric, C for 
Coal, etc.). 

You will tfien see the one-color, high-resolution screen 
(GRAPHICS 8) transformed into a four-color, high-resolution screen 
with the horizontal resolution of GRAPHICS 7, and the vertical 
resolution of GRAPHICS 8. This special mode, known only as Antic 
Mode 14, cannot be accessed directly from BASIC, but can be 
created with display-list modification. (Briefly, all Instruction 
Register modes 15 and 79 must be changed to 14 and 78, 
respectively.) In order to PLOT on this screen, we must use "POKE 
87,7" to trick the OS (operating system) into thinking we are in 
graphics mode seven. If we don't do this, the colors will be garbled 
and unaddressable. Unfortunately, although this allows us to draw 
in four colors, it limits the vertical height to 96 lines, only half the 
screen. The other half can only be drawn upon with tricky 
techniques. 

One tricky technique used is a machine language routine 
known as "TextPlot" (COMPUTE!, November 1981, #18). This 
routine allows you to place any ATASCII character anywhere on 
the screen. TextPlot is used to draw the axes, display the title, key, 
and give other messages. This fills the screen nicely. The graph is 
plotted in an imaginary window (see the figure). The other routine 
used in this program is a relatively short one that "plots" numerals. 
It is used to display the minimum and maximum values of the 
graph. It was used instead of TextPlot because it has a greater 
density. (Each character is 3v by 5h, rather than 8x8, so you can fit 
more numbers into less space.) 

You can use it in your own programs by calling line 3000 
(GOSUB 3000) with the variable "A" containing the numeral (0-9). 
If A = -2, then a decimal point will be plotted. The numeral will be 
plotted at screen coordinates NX and NY. Alternatively, you can 
enter the subroutine at 3500 with GX, GY, and GC (the X-Y 
coordinates and the color, 0-3) to print the number in the variable 
N. GD is used to limit the length of the number plotted to fit it into a 
limited display width (from the left margin to the side of the graph, 
in Energy Plot). Set it to eight or more, or just leave the statement 
out of the subroutine. Also, the subroutine at 1000 prints a string 
(MSG$) using TextPlot, at coordinates GX and GY in color GC. If 
ALT is set to one, the color will alternate through the string (set it 
to zero for normal use). You can also try to use the subroutine at 
2000, which scales and plots a line from the array Z (1-12). One 
final note: you may want to delete line 397 to improve color 
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contrast. Since line 397 generates random colors, some lines may 
look similar due to similar color shades selected. 



Hi::: ir ii H-:!- ir- iKiii ih.n \R ill. ii::n "H:: ii II::!: I!.... iiiii: ii::i: "H" ii-i! ::ii:: ii::i: 



HI I Ii! !:i 
«l "I . IH 
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'I I. 




.11-11 ::ii:: ini 



....II ii-iiii::ii M-...II ....II A -!::i< ii::ii M ii:;i' 

ii::ii E ii::ii ll"-» A II..II II..II U II!:!: H";: p 11:::: 

ihii B \h iR: V ii-iR II.... G II"*' "II" V ii::;: 



II"" r- .1::!. ijiiiiiiijiii::!!::!!::!::;!!::;:::! 

iiim IP" II..II II!:!: II.... •mil ii::;: ii::ii !!:!• "ii" m 



"ii'' iiiii' .isiii ir - ii 



Figure. Sample Output For Atari Version. 
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Program 2. YIC Version. 

4 ENERPLOT VIC VERSION 



^=5: PRINT" {CLEAR} ENERGY PLOT{03 DOWN} 

" :PRINT''DEFAULT=5": INPUT" # YEARS OF D 
ATA" ; N 



E FOLLOWING FILES IN THE CASSETTE RDR 

n 

RINT" { 2 DOWN } 1 ) NATGAS" : PRINT" 2 ) E LECT* 

INT"3)COAL":PRINT"4)OIL" 

PRINT" 5) WOOD" : PRINT" {DOWN} <CHOOSE ONE) 

GETY$ : I FY$ <> " 1 " ANDY$ <> " 2 " ANDY$ <> " 3 " AN! 

"4"ANDY$<>"5"THEN110 



XT:C$="ENERGY":GOSUB250:REM PLOT ENER 
GY 

F0RI=1T0N : F0RM=1T012 : Z ( I ,M) =D ( I ,M) : NE> 
XT:C$="COST" :GOSUB250:REM PLOT COST 
F0RI=1T0N:F0RM=1T012:Z(I ,M) =0:IFE(I ^M) 
ENZ ( I ,M) =100*D (I ,M) /E (I ,M) 



, E ( ) =ENERGY , D ( ) =COST 

OPENl ^ 1 ^ , C$ : INPUT# 1 ,N ^ BY , EY : F0RI = 1T01! 
M=1T012:INPUT#1,E(I,M) ,D(I,M) :NEXT:NE 
XT 



MONTH) =DATA 
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300 NEXT: RETURN 

310 REM BARGRAPH ENTER WITH X & Y,CO=COLOR 
320 XX=445+V+X:Y=INT(Y) 

330 FORII=YTO0STEP-1:Q=XX-II*D:A=7ANDPEEK(Q+E) 

: IFII=YTHENB=A 
340 IFA=BTHENPOKEQ , 160 : POKEQ+E ^ CO 
350 NEXT: RETURN 
360 REM SCALING 

370 MX=Z (1,1): MI=MX : F0RI=1T0N : FORM= ITOl 2 : X=Z ( I 

,M) : IFX>MXTHENMX=X 
380 IFX<MITHENMI=X 

390 NEXT:NEXT:MX=INT(MX+1) :MI=INT(MI) :PR=20*.9 

/ (MX-MI) : RETURN 
400 PRINT" {CLEAR}";" "; C$ ;"{ HOME} ";: REM 

AXES & LABELS 
410 FORI=4T01STEP-l:PRINTINT(MI+I*5/PR) ;"{04 

DOWN } " : NEXT : PRINTMI 
4 20 F0RI=TT0T+1 1 : POKEI ,114: POKEI+E , : NEXT 
4 30 F0RI = 1T012 : Q=T+21+I : POKEQ+E , : POKEQ , ASC (M$ 

(I) )-64:NEXT 
440 FORI=V+5TOV+467STEP22: POKEI+E, 0: POKEI, 80 :N 

EXT: RETURN 
450 DATAJ,F,M,A,M,J,J,A,S,0,N,D 



Prosram 3« Commodore 64 Version. 

10 REM ENERPLOT 

30 REM L0ADZ(YEAR,12) WITH PLOT VECTORS 

40 V=1024:D=40:E=54272:T=V+807:PRINTCHR$ (5) 

50 N=5: PRINT" {CLEAR} ENERGY PLOT{03 DOWN} 

":PRINT"DEFAULT=5":INPUT"# YEARS OF D 

ATA" • N 

60 DIMZ(N,12) ,M$(12) ,E(N,12) ,D(N,12) 
70 F0RI=1T012:READM$ (I) :NEXT 

80 PRINT" {DOWN}"; "PLACE A TAPE WITH ONE OF TH 
E FOLLOWING FILES IN THE CASSETTE RDR 
II 

90 PRINT"{02 DOWN} 1 ) NATGAS" : PRINT" 2) ELECT" : PR 

INT"3) COAL" : PRINT"4) OIL" 
100 PRINT" 5) WOOD" : PRINT" {DOWN} <CHOOSE ONE>" 
110 GETY$: IFY$<>"1"ANDY$<>"2"ANDY$<>"3"ANDY$<> 

"4"ANDY$<>"5"THEN110 
120 IFY$="1"THENC$="NATGAS" 
130 IFY$="2"THENC$="ELECT" 
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140 IFY$="3"THENC$="C0AL" 
150 IFy$="4"THENC$="0IL" 
160 IFY$="5"THENC$="W00D" 
170 GOSUB230 

180 F0RI = 1T0N:F0RM=1T012:Z(I,M)=E(I,M) ;NEXT:NE 
XT:C$="ENERGy":GOSUB250:REM PLOT ENER 
GY 

190 F0RI=1T0N:F0RM=1T012:Z(I,M)=D(I,M) :NEXT:NE 
XT:C$="COST":GOSUB250:REM PLOT COST 

200 F0RI=1T0N :F0RM=1T012 : Z ( I ,M) =0 : IFE ( I ,M) >OTH 
ENZ ( I ^ M) =100*D ( I ^M) /E ( I , M) 

205 NEXT:NEXT:C$="RATE":GOSUB250:REM RATE 

210 END 

220 REM GET DATA^N=#YRS,BY=BEG YR,EY=ENDING YR 

r E ( ) =ENERG Y ^ D ( ) =COST 
230 OPEN1,1,0,C$:INPUT#1,N,BY,EY:FORI=1TON:FOR 

M=1T012:INPUT#1,E(I,M) ,D(I,M) :NEXT:NE 

XT 

240 CLOSEl: RETURN 

250 REM PLOT SUBROUTINE, MX=MAX,MI=MIN, Z ( YEAR, 

MONTH) =DATA 
260 GOSUB360:GOSUB400 
270 F0RI=1T0N:C0=I:F0RM=1T012 
280 X=M* 2 : Y= ( Z ( I , M) -MI ) *PR : GOSUB320 : NEXT 
290 GETY$ : IFY$=" "THEN290 
300 NEXT: RETURN 

310 REM BARGRAPH ENTER WITH X & Y,CO=COLOR 
320 XX=T-42+X:Y=INT(Y) 

330 FORII=YTO0STEP-l:Q=XX-II*D:A=7ANDPEEK(Q+E) 

: IFII=YTHENB=A 
335 IFY=0THEN350 

340 IFA=BTHENPOKEQ,160:POKEQ+E,CO 
350 NEXT: RETURN 
360 REM SCALING 

370 MX=Z(1,1) :MI=MX:F0RI=1T0N:F0RM=1T012:X=Z(I 

,M) : IFX>MXTHENMX=X 
380 IFX<MITHENMI=X 

390 NEXT:NEXT:MX=INT(MX+1) :MI=INT(MI) :PR=20*.9 
/(MX-MI) : RETURN 

400 PRINT"{CLEAR}";TAB(31) ;C$;"{HOME}"; :REM AX 
ES & LABELS 

410 FORI=4T01STEP-l:PRINTINT(MI+I*5/PR) ;"{04 

DOWN} " : NEXT : PRINTMI 
415 FORI=T-lTOT+22 : POKEI , 67 : POKEI+E , 1 : NEXT 
420 FORI =TTOT+22STEP2 : POKEI , 114 : NEXT 
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430 F0RI=1T012 : Q=T+78+2* I : POKEQ+E , 1 : POKEQ , ASC ( 

M$(I) )-64:NEXT 
440 FORI=V+5TOTSTEP40 : POKEI+E , 1 : POKEI , 115 : NEXT 

: RETURN 

450 DATAJ,F,M,A,M,J,J,A,SrO,N,D 

500 REM V=UPPER LEFT CORNER OF SCREEN E= 

COLOR SCREEN-SCREEN=55296-1024 
510 REM D=SCREEN WIDTH, T IS THE POSITION OF T 

HE ORIGIN ON THE SCREEN 



Program 4* PET/CBM Version* 

10 REM ENERGYPLOT PET/CBM VERSION 

30 REM LOADZ (YEARrl2) WITH PLOT VECTORS 

40 V=32768:D=80:T=V+21*D+6:POKE59468r 12:REM U 

SE D=80 FOR 8032 
50 N=5: PRINT" {CLEAR} ENERGY PLOT{03 DOWN} 

": INPUT"* YEARS OF DATA?_5{03 LEFT}"; 

N 

60 DIMZ(N,12) ,M$(12) ,E(Nrl2) ,D(N,12) 
70 F0RI=1T012:READM$ (I) :NEXT 

80 PRINT" {DOWN}"; "PLACE A TAPE WITH ONE OF TH 
E FOLLOWING FILES IN THE CASSETTE RDR 
II 

90 PRINT" {02 D0WN}1)NATGAS" : PRINT" 2) ELECT" : PR 

INT" 3 ) COAL" : PRINT" 4 ) 01 L" 
100 PRINT" 5) WOOD" -.PRINT" {DOWN} <CHOOSE ONE>" 
110 GETY$:IFY$<>"1"ANDY$<>"2"ANDY$<>"3"ANDY$<> 

"4"ANDY$<>"5"THEN110 
120 IFY$="1"THENC$="NATGAS" 
130 IFY$="2"THENC$="ELECT" 
140 IFY$="3"THENC$="C0AL" 
150 IFY$="4"THENC$="0IL" 
160 IFY$="5"THENC$="W00D" 
170 GOSUB230 

180 F0RI = 1T0N:F0RM=1T012:Z(I,M)=E(I,M) :NEXT:NE 
XT:C$="ENERGY" :GOSUB250:REM PLOT ENER 
GY 

190 F0RI=1T0N:F0RM=1T012:Z(I,M)=D(I,M) :NEXT:NE 
XT:C$="COST" :GOSUB250:REM PLOT COST 

200 F0RI=1T0N : F0RM=1T012 : Z ( I ,M) =0 : IFE ( I ,M) >OTH 
ENZ(I,M)=100*D(I,M) /E(I,M) 

205 NEXT : NEXT :C$="RATE":GOSUB250: REM RATE 

210 END 
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220 REM GET DATA,N=#YRS ,BY=BEG YR,EY=ENDING YR 

rE()=ENERGY,D()=COST 
230 OPEN1,1,0,C$:INPUT#1,N,BY,EY:FORI=1TON:FOR 

M=1T012:INPUT#1,E(I,M) ,D(I,M) :NEXT:NE 

XT 

240 CLOSEl: RETURN 

250 REM PLOT SUBROUTINE, MX=MAX ,MI=MIN , Z ( YEAR, 

MONTH) =DATA 
260 GOSUB360:GOSUB400 
270 F0RI=1T0N:C0=I+1:F0RM=1T012 
280 X=M: Y= (Z (I ,M) -MI ) *PR:GOSUB310 : NEXT 
290 GETY$:IFY$=""THEN290 
300 NEXT: RETURN 

310 REM BARGRAPH ENTER WITH X & Y 
320 XX=20*D+5+V+X:Y=INT (Y) 

330 FORII=YTO0STEP-l:Q=XX-II*D:A=7ANDPEEK(Q) :I 

FII=YTHENB=A 
340 IFA=BTHENPOKEQ,159+CO 
350 NEXT: RETURN 
360 REM SCALING 

370 MX=Z(1,1) :MI=MX:F0RI=:1T0N:F0RM=:1T012:X=Z(I 

fM) :IFX>MXTHENMX=X 
380 IFX<MITHENMI=:X 

390 NEXT:NEXT:MX=INT(MX+1) :MI=INT(MI) :PR=20*.9 

/(MX-MI) : RETURN 
400 PRINT" {CLEAR}";" " ;C$ ;" {HOME} ";: REM 

AXES & LABELS 
410 FORI=4T01STEP-l:PRINTINT(MI+I*5/PR) ;"{04 

DOWN} " : NEXT : PRINTMI 
420 F0RI=:TT0T+11:P0KEI,114:NEXT 
430 F0RI=1T012:Q=T+D+I-1:P0KEQ,ASC(M$ (I) )-64:N 

EXT 

440 FORI=V+5TOV+21*D+5STEPD : POKEI , 80 : NEXT : RETU 
RN 

450 DATAJ,F,M,A,M, J, J,A,S,0,N,D 



Program 5« Atari Version. 

lOO REM lirrriiSC^CHSOEDBBaBIIOCSOBEIlCI^^ 

110 REM 

115 DIM F* ( 14) , (4) , E ( 10, 12) , D ( 10, 12 

),F(10,12),Z(12), MSG* (20) 
117 Z*=" : Bi<:M> <:B3 " 

120 6/^APHICS lOsOPEN #1,4,0, "Ks" 
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130 7 #6; " <:CLEAR> " s POSITION 5,0:? #6; 

140 POSITION 5,1:? #6;"Belect file:": 
? #6 

160 ? #6; "NEEiffCBEDBEEE" : ? #6:? #6;"EDE 
BEGSBISBCiC:" : ? #6:? #6;"CEE!D":? #6:? 
#6;"0HD"s? #6:? #6;"WEEI?:" 
170 GET #1,A:F*="" 

180 IF A=78 THEN F^= " D : NATGAS " 
190 IF A=69 THEN F*= " D : ELECTR I C " 
200 IF A=67 THEN F*="D:COAL" 
210 IF A=79 THEN F*="D:OIL" 
220 IF A=87 THEN F*="D:WOOD" 
225 IF F*="" THEN 170 

230 POSITION 10,8:? #6 ; " EHEEBCE" : POS I 

TION 10,9:? #6?"5Ei[lIl" 
240 TRAP 25b:0PEN #2 , 4 , O , F* : TRAP 4000 

0:GOTO 260 
250 CLOSE #2:? #6 ; " CCLE AR> CAN ' T OPEN 

THE FILE.":? #6; "PRESS ANY KEY TO 

":? #6; "TRY AGAIN- ":GET #1,A:G0T0 
130 

260 INPUT #2;N,BY,EY 
270 FOR 1=1 TO N 
280 FOR M=l TO 12 

290 INPUT #2;A,B:E<I,M)=A:D(I,M>=B 
298 FOR J=l TO 4:P0SITI0N 15,9:? #6; Z 
*(J,J):FOR W=l TO 4:NEXT W:NEXT J 
300 NEXT M 
310 NEXT I 

320 GRAPHICS 5+16: IF PEEK ( 1 600 ) 0252 
THEN GOSUB 20000 

321 DL = PEEK (560) +256«PEEK ( 56 1 > +4 

322 POKE DL-1 , 1 1+64: POKE 87,6 

323 FOR 1=2 TO 15:P0KE DL+I,11:NEXT I 
325 SETCOLOR 4 , 1 , 6 : SETCOLOR 0,0,14:SE 

TCOLOR 1 , 4, 10: SETCOLOR 2,3,12 
330 MSG*=" CES>HEDEEEiM" : GC=3: GX=0: GY=0 

: GOSUB 1000 
340 POKE 87,5:MSG*="Energy":GC=2:GX=2 

:GY=24: GOSUB lOOO 
350 MSG*="P1 ot " : GC=3 : GX=3 : GY=40 : GOSUB 
lOOO 

360 FOR W=l TO 1000:NEXT W 
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370 GRAPHICS 8-i- 1 6 : DL = PEEK ( 560 ) -1-256 tPE 
EK (561 ) -I-4 

375 MSG*="Transf ormi ng Screen " : GX=1 : G 
Y=96:GC=3:SETC0L0R 2,l,14:GOSUB 1 
OOO 

380 FOR I = -l TO 200:IF PEEK ( DLh- I ) = 1 5 

THEN POKE DL^I , 14 
385 IF PEEK (DL-H ) =79 THEN POKE DL-M , 7 

8 

390 NEXT I 

395 FOR YEAR=BY TO EY:? #65"CCLEAR>" 
397 Z=0:FOR 1=1 TO 12 STEP 3:SETC0L0R 
Z, INT <3*RND <0> ^-I ) , Z«2+8: Z = Z + 1 : NE 
XT I 

400 MSG*="Energy PI ot : " s GC=2: GX=Os GY= 

0:GOSUB 1000 
410 MSG*=F* (3) : GX= 1 2 : GY=0 : GC= 1 : GOSUB 

1000 

415 MSG*="MAX" : GX= 1 7 : GY= 1 6 : GC=3 s GOSUB 
1000 

417 MSG*="MIN" : GX = 1 7 : GY=88 s GC= 1 : GOSUB 
1000 

420 FOR 1=2 TO 1 1 : A=USR ( 1 536 , 1 , 1 , 4 , I » 

8)sNEXT I 
430 A=USR ( 1536, 26, 3, 4, 12*8) 

440 FOR 1=5 TO 1 6 s A=USR ( 1 536 , 24 , 3 , I , 1 
2*8)sNEXT I 

441 MSG*=" JFMAMJJASOND" : GX=4; GY=13*8 
s GC=1 s ALT=1 : GOSUB 1000 

442 MSG*=" AEAPAUUUECOE"sGY = GY-^7:GOSU 
B lOOO 

443 MSG*=" NBRRYNLGPTVC" s GY = GY-i-7: GOSU 
B 1000:ALT=0 

450 MSG*=" <:T>FUEL" : 00:^=1 s GX=1 : GY=152: G 
OSUB 1000 

460 riSG*=" <T>COST" : GC=2 : GX = 8 s G Y= 1 52 s G 
OSUB 1000 

470 MSG*=" CTJ RATE " sGC = 3s GX = 15s GY=152: 

GOSUB lOOO 
480 MSG*="Year: " : GX=7-LEN ( STR* < YEAR ) > 

/2: GY= 178s GC=2s GOSUB 1 000 s riSG* = ST 

R* (YEAR) s GC=7s GX = GX+5s GOSUB lOOO 
500 FOR 1=1 TO 12sZ(I)=E<YEAR-BY^l, I) 

sNEXT IsCl=lsGOSUB 2000 
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510 FOR 1 = 1 TO 125 Z < I ) =D <YEAR-BY-i-l , I ) 

:NEXT I:C1=2:G0SUB 2000 
520 FOR 1=1 TO 12:Z(I>=0:IF E(YEAR-BY 
-H,I)>0 THEN Z < I ) =100«D (YEAR-BY-i-1 
, I ) /E < YEAR-BY^l , I > 
NEXT IsCl=3:G0SUB 2000 
MSG*="Press ESDEEH " s GC=2 : GX = 4 : GY = 
136:G0SUB lOOOsGET #1,A 
NEXT YEAR 



530 
550 

560 
999 
lOOO 

1010 



RUN 
REM 
ING 
REM 



TO PRINT MSG*. US 



1015 
1017 
1020 
1030 



1040 
1050 
2000 

20 lO 
2020 
2030 
2040 
2050 

2060 

2100 
2107 

21 10 
2120 
2130 
2135 

2140 

2150 
2160 
3000 
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SUBROUTINE 
TEXTPLOT 

ENTER WITH GX,GY, THE X AND 
Y COORDINATES TO START THE MESSA 
GE 

REM AND GC, THE COLOR (0-3) 
GP = GC 

FOR GI=1 TO LEN<MSG*) 
GG=USR ( 1536, ASC (MSG* (GI > ) , GC, GX+ 
GI-1,GY):IF ALT THEN GC=GC*(GC<3 
) +1 

NEXT GI:GC=GP 
RETURN 

MAX = Os MIN=1 . OE-i-97 

FOR 1=1 TO 12 

IF Z(I)>MAX THEN MAX=Z ( I ) 

IF ZdXMIN THEN MIN=Z(I) 

NEXT IsPOKE 87,7 

N=INT (MINtlOOO) /lOOO: ND=8: GX=0: G 

Y=96-C1 *6: GC=C1 s GOSUB 3500 

N=INT (MAXtlOOO) / 1 OOO : GX = : G Y= 1 6 + 

Cl«6sG0SUB 3500 

C2=C1+1:IF C2>3 THEN C2=l 

IF MAX=MIN THEN M I N=M I N- 1 E-04 

FOR 1=1 TO 12 

X = 32-i-I*8+Cl»3: A=Z (I) 

Y=94- ( ( A-MIN) / (MAX-MIN) ) *80 

IF I>1 THEN COLOR C1:DRAWT0 X-1, 

Y 

COLOR C2:PLOT X-i-l,Y:PLOT X,Y-lsP 
LOT X,Y+l5PL0T X,Y 
NEXT i 
RETURN 

REM PRINT A TINY NUMBER 



















3001 








3005 




3010 








3020 




3030 




3100 




3110 






3120 












3130 












3140 








3150 








3 1 60 




3170 






3180 








3185 








3190 












3500 








3505 












3507 















REM ENTER WITH A=0-9 

RINT A PERIOD 

IF A<0 THEN 3020 

ON A+1 GOSUB 3100,31 

, 3140, 3150, 3160, 3170 

IF A=-2 THEN PLOT NX 

RETURN 

PLOT NX,NY:DRAWTO NX 
NX+2, NY+4s DRAWTO NX 
NX, NY: RETURN 

PLOT NX+1 , NYs DRAWTO 

TURN 

PLOT NX, NYs DRAWTO NX 
NX+2, NY+2: DRAWTO NX 
NX,NY+4!DRAWT0 NX+2 



OR -2 TO P 



10, 3120, 3130 
, 3180, 3190 
+1 , NY+4 

+2, NY: DRAWTO 
, NY+4: DRAWTO 

NX+1,NY+4:RE 

+2,NY:DRAWTO 
, NY+2: DRAWTO 
, NY+4: RETURN 



PLOT NX, NY: DRAWTO NX +2 , NY : DRAWTO 
NX+2,NY+4:DRAWT0 NX,NY+4:PL0T N 

X+2, NY+2: DRAWTO NX , NY+2 : RETURN 

PLOT NX, NY: DRAWTO NX , NY+2 : DRAWTO 
NX+2, NY+2: DRAWTO NX+2, NY+4 : DRAW 

TO NX+2, NY: RETURN 

PLOT NX+2,NY:DRAWT0 NX,NY:DRAWTO 
NX,NY+2:DRAWT0 NX+2, NY+2: DRAWTO 
NX+2, NY+4: DRAWTO NX , NY+4 : RETURN 

PLOT NX, NY: DRAWTO NX , NY+4 : DRAWTO 
NX+2, NY+4: DRAWTO NX+2, NY+2: DRAW 

ro NX,NY+2:RETURN 

PLOT NX,NY:DRAWTO NX+2, NY: DRAWTO 

NX+2, NY+4:RETURN 
PLOT NX, NY: DRAWTO NX+2, NY: DRAWTO 

NX+2, NY+4: DRAWTO NX , NY+4 : DRAWTO 

NX, NY 

PLOT NX, NY+2: DRAWTO NX+2,NY+2:RE 
TURN 

PLOT NX+2, NY+4: DRAWTO NX+2,NY:DR 
AWTO NX, NY: DRAWTO NX , NY+2 : DRAWTO 

NX+2, NY+2: RETURN 
REM PRINTS A NUMBER (N) AT POSIT 
ION BX,GY IN COLOR GC 
REM STRING IS CLIPPED TO LENGTH 
ND (NUMBER OF DIGITS) LEAVE OUT 
LINE 3508 IF FEATURE NOT DESIRED 
COLOR GC:MSG«=STR« (N) 
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20270 DATA 1 69 , O , 1 33 , 208 , 1 33 , 20« 

20280 DATA 177,205,69,195,72,10^ 

20290 DATA 10,72,144,8,24,173 

20300 DATA 251,6,5,208,133,208 

20310 DATA 224,1,240,8,6,208 

20320 DATA 38,209,6,208,38,209 

20330 DATA 202,208,228,104,152,72 

20340 DATA 160,0,165,209,145,203 

20350 DATA 200,165,208,145,203,10^ 

20360 DATA 168,24,165,203,101,207 
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20370 DATA 133,203,144,2,230,204 

20380 DATA 200,192,8,208,183,96 

20390 DATA 169,0,133,212,162,8 

20400 DATA 70,186,144,3,24,101 

20410 DATA 187,106,102,212,202,208 

20420 DATA 243,133,213,96,0,1 

20430 DATA 28 



Prosram 6. Color Computer Version. 

lO REM ENERPLOT 

20 REM LOAD Z<YEAR ,12) WITH PLOT VEC 
TORS 

30 CLSs PRINT: PRINT" ENERGY P 

LOT" : PRINTS PRINT: INPUT"# YEARS OF 
DATA" ; N: IFN=OTHENN=5 

40 DIMZ (N, 12) ,LT*(42) ,M«<12),E<N,12), 
D (N, 12) 

50 F0Ri=lT012: READM* < I ) : NEXT 

60 FORI=lT09: READLT* ( I ) : NEXT : FORI= 1 7T 

042: READLT* < I ) :NEXT 
70 PRINT: PRINT" 1 ) NATURAL GAS": PRINT" 
2) ELECTRICITY" : PRINT" 3) COAL" : PR I 

NT" 4) OIL" : PRINT" 5 > WOOD " : PR I NT " 

<9 SPACESXCHOOSE ONE>" 
SO Y«=INKEY*: IFY*<>" 1 "ANDY*< >"2"ANDY* 

<>"3"ANDY*< >"4"ANDY«< >"5"THEN80 
90 IFY*=" 1 "THENC«="NATGAS"ELSEIFY«="2 

" THENC*= " ELECT " ELSE I FY*= " 3 " THENC*= 

"COAL"ELSEIFY*=»4"THENC«="OIL"ELSE 

I F Y*= " 5 " THENC*= " WOOD " ELSE80 
lOO G0SUB160 

no DATA J AN, FEB, MAR, APR, MAY, JUNE, JULY 

, AUG, SEPT, OCT, NOV, DEC 
120 FORI = lTON: F0RM=1T012: Z < I , M> =E < I , M 

): NEXT: NEXT: G0SUB190: REM PLOT ENE 

RGY 

130 FORI = lTON: F0RM=1T012: Z < I , M> =D < I , M 
): NEXT: NEXT: G0SUB190: REM PLOT COS 
T 

140 FOR 1=1 TON: FORM=lT012: Z(I,M)=100*D 



79 



<I,M)/E<I,M>s NEXT: NEXT: G0SUB190I R 
EM PLOT ENERGY RATE 
150 END 

160 OPEN ■• I " , #1 , C«: INPUT#1 , N, BY, EY: FO 
R 1 = 1 TON: FORM=lT012: INPUT#1 , E < I , M> 
, D ( I , M) : NEXT: NEXT: CLOSE* 1 : RETURN 

170 ' PLOT SUBROUTINE 

ISO ' USES MX=MAXIMUM MI=MINIMUM Z<YE 

AR, MONTH) =DATA 
190 PMODE3, 1 : PCLS: SCREENl , 1 
200 AA*="J FMAMJJASON D":DRA 

W"BM52, 170" : G0SUB310 
210 AA*="A EAPAUUUECO E":DRA 

WBM52, 181 " : G0SUB310: AA«="N B R R 
Y N L G P T V C" : DRAW"BM52, 191 " : 

G0SUB310 

220 LINE <50, O) - (50, 161 ) , PSET : L I NE < 50 , 
161 ) - (255, 161 ) , PSET 

230 MX = Z < 1 , 1 ) : MI=MX: FORY=lTON: F0RZ=1T 
012:IFZ(Y,Z)>MX THENMX = Z <Y, Z ) ELSE 
IFZ(Y,Z)<MI THENMI=Z <Y, Z> 

240 NEXT: NEXT: MX = INT (MX > : MI = INT (MI ) 

250 AA*=STR*(MX) : DR AW " BMO , 7 " : G0SUB3 1 
: AA*=STR« (MI ) : DRAWBMO, 160" : GOSUB 
310: AA«=STR* ( INT ( (MX-MI ) /3+MI > ) : D 
RAWBMl , 107" : G0SUB310: AA« = STR* (IN 
T ( (MX-MI > /3*2+MI ) ) : DRAWBMl , 58" : G 
0SUB310 

260 PR=160/ (MX-MI ): CO=MI *PR 

270 FORYE=lTON: COLORYE+1 , 4 

280 F0RZ=1T01 1 : L I NE ( 55+ 1 7 . 9* ( Z-1 > , ABS 
( 160-PR*Z (YE, Z> +C0) ) - (72. 9+17- 9* ( 
Z-1 ) , ABS ( 160-PR*Z ( YE, Z+1 ) +CO) ) , PS 
ET: NEXT 

290 NEXTYE 

300 IFINKEY*=" " THEN300ELSERETURN 
310 ' LETTERS ROUTINE 

320 F0RI = 1T0LEN (AA*) : IFMID* ( AA«, I , 1 > = 
" "THENDRAW"BM+9, O" : G0T0360 

330 IFMID* (AA*, I , 1 ) = " O " THENDR AWLT* ( 3 1 
) : G0T0360 
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440 DATA"U1 ; E4; Ul ; BM-4, O; Dl ; F4; Dl ; BM+ 
3, O" , "BM+0, -6; D2 ; F2 ; ND2 ; E2 ; U2 ; BM+ 
3,7"," NR4 ; U 1 ; E4 ; U 1 ; L4 ; BM+7 , 6 " 

Program ?♦ TI-99 Version. 

1 REM energyplot, TI version 
3 REM load z (year, 12) with plot vecto 
r s 

lO CALL COLOR < 12, 4, 7) 
12 CALL COLOR<13, 16,4) 
14 CALL COLOR ( 14, 4, 6) 
16 CALL COLOR ( 15, 4, 16) 
18 CALL COLOR < 16, 4, 13) 

32 DEF TRC<X>=INT(X*10) /lO 

33 CALL CHAR ( 128, " 181818FFFF181818" ) 

34 CALL CHAR < 129, "OOOOOOFFFFOOOOOO" ) 

35 CALL CHAR < 130, " 1818181818181818" ) 

37 CALL CHAR < 137, "55AA55AA55AA55AA" ) 

38 CALL CHAR ( 147, " 3C3C3C3C3C3C3C3C " ) 
40 CALL CHAR < 157, "C3C3C3C3C3C3C3C3" ) 

49 CALL CLEAR 

50 PRINT TAB < 10) ; "ENERGY PLOT": : : s 

m m 
m m 

60 DIM Z (lO, 12) ,E<10, 12) ,D(10, 12) 
65 REM dim set for lO yrs of data 
70 READ M« 

80 PRINT "insert a tape with one of 
<:3 SPACESJthe following files" 

85 PRINT "1) natgas, 2) elect, 3) coa 
14) oil, 5) wood": : s s s 

90 PRINT "PRESS ANY KEY TO CONTINUE" 

lOO GOSUB 500 

170 GOSUB 230 

180 FOR 1=1 TO N 

184 FOR M=l TO 12 

186 Z <I,M)=E<I,M) 

188 NEXT M 

189 NEXT I 

190 D«=" ENERGY" 
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192 60SUB 250 
194 FOR 1=1 TO N 
196 FOR M=l TO 12 

198 Z <I,M)=D<I,M) 

199 NEXT M 

200 NEXT I 

202 D*="COST" 

203 60SUB 250 

204 FOR 1=1 TO N 

205 FOR M=l TO 12 

206 Z(I,M)=0 

207 IF E<I,ri)=0 THEN 209 

208 Z (I , M) =100«D < I , M) /E ( I , M) 

209 NEXT M 

210 NEXT I 

211 D«="RATE" 

212 GOSUB 250 
214 END 

220 REM get data, n=# yrs, by=beg yr , 

ey=end yr , e<)=energy, d ( ) =:co5t 
230 OPEN #2s "CSl INTERNAL, INPUT ,FIX 

ED 128 
232 INPUT #2s C«, N, BY, EY 
234 FOR 1=1 TO N 

236 INPUT «2: E ( I , 1 ) , D ( I , 1 ) , E ( I , 2> , D < I 
,2>,E(I,3),D<I,3),E(I,4>,D<I,4),E 
<I,5>,D<I,5),E<I,6),D<I,6),E<I,7) 
, D ( I , 7) 

237 INPUT #2: E < I , 8) , D (I , 8) , E (I , 9) , D ( I 
,9),E(I,10>,D<I,10),E(I,11),D<I,1 
1) ,E<I, 12) ,D<I, 12) 

238 NEXT I 

239 CLOSE #2 

240 RETURN 

250 REM plot subroutine, mx = max, mi 

=inin, z < year , month ) =dat a 
260 GOSUB 360 
265 GOSUB 400 

270 FOR 1=1 TO N 

271 S=10*<I-1) 
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272 IF S<31 THEN 276 

273 S=-10«<I-4) w 
276 FOR M=l TO 12 

280 x=2*ri ^ 

282 Y=21- <Z ( I , M) -MI ) »PR w 
284 60SUB 310 
286 NEXT M 

290 GOSUB 500 w 
300 NEXT I 
305 RETURN 

310 REM bargraph enter with x & y, co ^ 

=col or 
320 XX = X+8 

322 Y=INT<Y) w 

323 CALL GCHAR<Y, XXjQQ) 

325 IF Y<22 THEN 330 ^ 

326 RETURN w 
330 FOR II=Y TO 21 

332 CALL GCHAR(II,XX,Q) ^ 

334 IF QOQQ THEN 337 w 

335 NEXT II 
337 11 = 11-1 

350 CALL VCHAR <Y, XX, 127+S, I I^Y+1 ) ^ 

355 RETURN 

360 REM scaling 

370 MX=Z<1,1) w 

371 MI=MX 

372 FOR 1=1 TO N ^ 

373 FOR M=l TO 12 w 

374 X=Z(I,M) 

375 IF X<MX THEN 378 

376 MX=X W 

378 IF X>MI THEN 390 

379 MI=X ^ 
390 NEXT M w 
392 NEXT I 

394 MX = INT<MX + 1> 

396 MI=INT<MI) w 

398 PR=20/ <MX-MI ) 

399 RETURN ^ 

400 CALL CLEAR W 
404 PRINT D*St"€6 SPACES> " 8tC* 











410 


FOR 1=4 TO 1 STEP —1 


w 


412 


Y = TRC (MI-M *4/PR) 




413 


PRINT STR*(Y) 


415 


PRINT s s s : 




416 


NEXT I 
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462 


CALL VCHAR<2, 1,32, 19) 




500 


CALL KEY<3,Y,ST) 




510 


IF ST=0 THEN 500 




515 


Y=Y-48 


\^ 


520 


RETURN 


lOOO CALL COLOR ( 1 1 , 16, 4) 




1002 CALL CHAR ( 1 17, " 181818FFFF181818" 






) 




1005 CALL HCHAR ( 12, 16, 1 17, 5) 




lOlO BOTO 1010 










Program 8. Apple Version. 




100 


REM ENERGY PLOT - APPLE VERSION 




101 


LOMEMi 24576 




110 D« = CHR« (4) 




115 


DIM E(10, 12),D(10, 12),F<10, 12),Z(12) 




117 


DIM CS«(26) ,NS«<9> 




120 


TEXT : HOME 




130 


INVERSE : HTAB 15 i PRINT "ENERGY PLOT"i 






NORMAL 




140 


PRINT 8 PRINT s PRINT "SELECT FILEs"! PRINT 






! PRINT 




160 


PRINT " ATURAL GAS": PRINT : PRINT " LE 






CTRICITY"! PRINT s PRINT " 0AL"8 PRINT 
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8 PRINT " IL"s PRINT s PRINT " ODD" 
165 INVERSE s VTAB 7s PRINT "N"8 PRINT s PRINT 

"E"8 PRINT 8 PRINT "C"s PRINT 8 PRINT " 

0"8 PRINT 8 PRINT "W" 
170 PRINT 8 NORMAL 8 PRINT "PRESS ONE LETTE 

R8";8 BET A*8 IF A* = CHR* <27) THEN HOME 

8 END 
175 = 

180 IF A* = "N" THEN F* = "NATGAS" 
190 IF A* = "E" THEN F» = "ELECT" 
200 IF A* = "C" THEN F* = "COAL" 
210 IF A* = "O" THEN F* = "OIL" 
220 IF A* = "W" THEN F* = "WOOD" 
225 IF F* = "" THEN RUN 

230 FLASH 8 PRINT 8 PRINT 8 PRINT "READING 

FILE" 8 NORMAL 
235 ONERR GOTO 250 

240 PRINT D*; "0PEN";F*8 PRINT D*5"READ"5F* 
245 GOTO 260 

250 PRINT D*; "CLOSE" ;F*8 HOME 8 INVERSE 8 PRINT 
"CAN'T READ THE FILE! "8 PRINT 8 NORMAL 
8 PRINT "PRESS A KEY TO TRY AGAIN-.."; 8 
GET Mz RUN 

260 INPUT N,BY,EY 

270 FOR I = 1 TO N 

280 FOR M = 1 TO 12 

290 INPUT E(I,M)8 INPUT D<I,M) 

300 NEXT M 

310 NEXT I 

311 PRINT D*3"CLOSE"5F* 

312 POKE 216,0 

320 HGR 8 HOME 8 GOSUB 20000 

330 MSG* = "APPLE II"8GC = 78 GX = 08 GY = 08 S 

C = 48 GOSUB 1000 
340 MSG* = "ENERGY" 8 GX = l8GY = 608 GOSUB 10 

00 

350 MSG* = "PL0T"8GX = 28GY = 1008 GOSUB 100 
O 

360 FOR W = 1 TO 10008 NEXT W 
380 FOR YEAR = BY TO EY 
390 HGR 8 HOME 

400 MSG* = "ENERGY PL0T"8GC = 78GX = OsGY = 

08 SC « 28 GOSUB 1000 
410 MSG* = F*8GX = 248 GY = OsGC = 78SC = l8 GOSUB 

1000 

415 MSG* = "MAX"8SC = laGX = 208GY = 168 GC = 
78 GOSUB 1000 
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417 MSG* = "MIN"sBX = 20s GY = GBsGC = 7s GOGUB 
1000 

420 HCOLOR= 7s HPLOT 40,16 TO 40,96s FOR I = 
2 TO lis HPLOT 40,1 * 8 TO 44,1 » 8i NEXT 

440 HPLOT 40,96 TO 152, 96i FOR 1 = 7 TO 18s 

HPLOT I » 8 + 4,96 TO I * 8 + 4,948 NEXT 

441 MSG* "JFMAMJJA8DND"s6X « 7s6Y » 13 * 8 

iGC » 78 GOSUB 1000 

442 MSG* » "AEAPAUUUECOE"sGY « GY ->■ 78 GOSUB 

1000 

443 MSG* « "NBRRYNLGPTVCsGY » GY + 7s GOSUB 

1000 

450 GG = 64s GC - IsGX = 8s GY - 1528 GOSUB 15 
00s MSG* » "FUEL"8GC » 7sGX » 28 GOSUB 1 
000 

460 GG = 648 GC = 2sB% = 64s GY = 1528 GOSUB 1 
5008 MSG* = "C0ST"8GC = 78 6X = 98 GOSUB 
1000 

470 GG = 64s GC - 3sGX = 120s GY = 1528 GOSUB 

1500s MSG* = "RATE"sGC » 7sGX = 16s GOSUB 
1000 

480 MSG* = "YEAR"sGX = 11 - LEN ( STR* <YEA 
R)) / 2sGY » 140s GC » 7s GOSUB lOOOsND » 
48 N » YEARS SC = IsGX « 6X + 14s GOSUB 3 
500 

500 FOR I = 1 TO 12sZ<I) = E(YEAR - BY + 1, 

1)8 NEXT sCl = Is GOSUB 2000 
510 FOR I = 1 TO 12s Z (I) = D(VEAR - BY + 

I)s NEXT :C1 = 2s GOSUB 2000 
520 FOR I = 1 TO 12sZ<I) = Os IF E(YEAR - B 

Y + 1,1) > THEN Z(I) = 100 » D(YEAR - 

BY +1,1) / E(YEAR - BY + 1,1) 
530 NEXT 1 8 CI a 38 GOSUB 2000 

550 VTAB 23a PRINT "PRESS "js INVERSE s PRINT 
"RETURN"; 8 NORMAL s PRINT "..."js GET A 
* 

560 NEXT YEAR 

999 RUN 

1000 REM SUBROUTINE TO PRINT ALPHA TEXT IN 
MSG* 

1010 REM ENTER WITH GX,GY THE X,Y COORDINA 
TES TO START THE MESSAGE 

1015 REM AND GC, THE HCOLOR 

1016 IF MSG* = "" THEN RETURN 



1017 X2 = BX:BX = BX » 8 » SC 

1020 FOR BI = 1 TO LEN (MSS») 

1030 8B = ASC ( MID* (MSB*,BI)): IF 6B > 63 

THEN BOSUB 1500 
1037 BX = SX + 8 * SC 
1040 NEXT BIsBX » X2 
1050 RETURN 

1400 REM SUBROUTINE TO PRINT CHARACTER BB 

AT BX,BY IN COLOR BC 
1500 HCOLOR= SCiCS* = CS*(BB - 64) 
1510 FOR CI = 1 TO LEN (CS«) STEP 2 
1520 Dl» = MID» <CS*,CI,1):D2» = MID* <CS* 

,CI + 1,1) 

1530 X = VAL <D1*) « SCiY = VAL (D2*) « SC 

1540 IF Dl* = "/" THEN STP = Is BOTO 15B0 
1550 IF CI > 1 AND STP = THEN HPLOT TO 

BX + X,SY + Y 
1560 HPLOT BX + X,SY + YaSTP = 
1580 NEXT CI 
1590 RETURN 
2000 MAX = OiMIN » - 1 
2010 FOR I = 1 TO 12 
2020 IF Z<I) > MAX THEN MAX = Z<I) 
2030 IF <Z(I) < MIN) THEN MIN = Z(I) 
2040 NEXT 

2050 N =» INT (MIN » 1000) / lOOOiND = SjBX = 
Is BY = 96 - CI « 7s BOSUB 3500! HCOLOR= 
Cls HPLOT 0,BY TO 1,BY TO 1,BY + 1 TO O 
,BY + 1 

2060 N = INT (MAX « 1000) / lOOOiBX = Is BY = 

16 + CI « 7! BOSUB 3500s HCOLOR= Cls HPLOT 
0,BY TO 1,BY TO 1,BY + 1 TO 0,BY + 1 

2100 C2 = CI + 4 

2107 IF (MAX = MIN) THEN MIN = MIN - .0001 
2110 FOR I = 1 TO 12 

2120 X = 52 +I*8 + C1« 3s A = Z(I) 

2130 Y = 94 - ((A - MIN) / (MAX - MIN)) « 80 

2135 IFI>1 THEN HCOLOR= Cls HPLOT TO X 
- 1,Y 

2140 HPLOT X + 1,Y TO X + 1,Y + 1 TO X - 1, 

Y + 1 TO X - 1,Y TO X,Y 
2150 NEXT 
2160 RETURN 

3000 REM PRINTS SMALL NUMBER IN A 
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3010 


REM 


(0-9). A=-2 PLOTS PERIOD 


3020 


IF A 


> 57 THEN RETURN 




3030 


IF A 


= - 2 THEN HPLOT GX + l.BY -i- 5: 




RETURN 




3040 


CS* = 


NS*<A)s HCOLOR= 7s GOTO 1510 


3500 


REM 


PRINTS A FULL NUMBER 




3510 


REM 


<N) AT GX,GY- ND 




3520 


REM 


CLIPS STRING TO GIVEN LENGTH 


3530 


REM 


SET ND=255 IF YOU DON'T USE IT 




3540 


MS6t» = 


LEFT* ( STR* < ABS (N)),ND) 


3550 


X2 = eXsGX = GX » 5 » SC 




3560 


FOR I 


= 1 TO LEN (MSG*) 




3570 


A = ASC ( MID« (MSG«,I)) - 48 


3580 


60SUB 


3000: GX = GX + 5 » SC 


^^^^^ 


3590 


NEXT 


sGX = X2 


3600 


RETURN 




20000 


REM 


LOADS CS* WITH LETTERS 




20005 


RESTORE 




20010 


FOR 


I = TO 26: READ CS*(I): NEXT 




20011 


FOR 


I = TO 9: READ NS*(I): NEXT 


20012 


RETURN 




20015 


DATA 


0050//0151//0252//0353//0454//0 




555 






20020 


DATA 


05005055/ /0353 




20030 


DATA 


33300005555303 


20040 


DATA 


50000555 




20050 


DATA 


533000055553 




20060 


DATA 


50000555/ /0333 




20070 


DATA 


050050/ /0333 




20080 


DATA 


500005555333 


20090 


DATA 


0005//5055//0353 




20100 


DATA 


0050//0555//3035 




20110 


DATA 


053530/ /0050 




20120 


DATA 


0005//0350//0355 




20130 


DATA 


000555 


20140 


DATA 


05005055/ /3033 




20150 


DATA 


050030355550 




20160 


DATA 


0050550500 




20170 


DATA 


0500505303 




20180 


DATA 


0050550500/ /3355 


20185 


DATA 


050030335355/ /0333 




20190 


DATA 


500003535505 




20200 


DATA 


0050//3035 




20210 


DATA 


00055550 




20220 


DATA 


000333355550 


20230 


DATA 


00055550/ /3533 



20240 DATA 0055/ /5005 
20250 DATA 00035350/ /3335 
20260 DATA 00500555 
20270 REM NUMBERS 0-9 

20280 DATA 0030350500 , 3035 , 003033030535 , 00 
30333505/ /3303, 00033335// 3033, 300003333 
505, 300005353303, 003035, 003035050333/ /O 
003, 3530000333 
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Electric 

Usage 
Estimator 



m 
# 
m 
m 
# 



Electric Usage 
Estimator 



As electric rates continue to rise, it is important to understand how 
much electricity each of our electrical appliances uses so that we 
can better manage our personal resources. This program will allow 
you to make a quick estimate of the cost you incur each year from 
each appliance, based upon your current (or projected) utility rate. 
The program will also sum these costs by appliance group and 
calculate a grand total for all appliances. 

The data used in this program are the watts and kilowatt- 
hours for each appliance. (1 have added several appliances to the 
list based upon my usage.) The wattage of each appliance is easily 
obtained by reading the specification plate on the appliance (it 
usually gives the wattage or the amperage). Otherwise, you can 
measure the amperage with an amp meter and multiply that by the 
voltage to get watts. 

However, it is more difficult to determine the number of 
hours per year that an appliance runs in order to calculate the 
kilowatt-hours. Some appliances — such as television sets, radios, 
washing machines, etc. — are turned on and off, so you can make 
an estimate of the number of hours the appliance is in use. 
Refrigerators and freezers are a notable exception, however, since 
the on/off cycle is dictated by a thermostat. Because of this, we are 
restricted to using the published figures for an average household 
for these items. 

The data in the program are organized according to the 
appliance name, followed by the average watts and kilowatt hours. 
The average watts are not used by the program, but are included 
so that the user can modify the watts or the number of hours the 
appliance is operated per year (and thereby modify the number of 
kilowatt-hours). Each of the seven appliance groups is separated in 
the data statements by a xxx (followed by two zeros). When this 
condition is met, the cost of that appliance group (SK) is printed, is 
reset to zero, and another group is processed. After the seventh 
group is printed, the total cost for all appliances is printed. 
Organizing the program and DATA statements in this way allows 
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the user to add to or delete items from each of the seven groups 
without having to reset counters for each appliance group. 

Two significant electrical usage items are omitted from the 
program: central air conditioning and lighting. Lighting costs are 
highly variable due to the situation and people involved, and air 
conditioning is a function of the region as well as of the personal 
taste of the homeowner. 

Reference 

Hart, G. K., and the Editors of U. S. News & World Report Books. How to 
Cut Your Energy Costs, A Guide to Major Savings at Home and on the 
Road. Washington, D. C: U. S. News & World Report Books, 1978. 



Sample Run* 



ELECTRIC USAGE ESTIMATOR 



ELECTRICITY COST IN CENTS/KWH (E.G., 5.14)= ? 6.55 



RESPOND WITH NUMBER OF APPLIANCES USED IN HOME 



FOOD 

BLENDER? 1 
BROILER? O 
CARVING KNIFE? O 
COFFEE MAKER? 1 
DEEPFRYER? 1 
DISHWASHER? 1 
EGG COOKER? O 
FRYING PAN? 1 
HOT PLATE? O 
MIXER? 1 

MICROWAVE OVEN? 1 

OVEN? 1 

ROASTER? O 

SANDWICH GRILL? O 

TOASTER? 1 

TRASH COMPACTOR? O 



PREPARATION APPLIANCES 

ANNUAL COST « «0.06 



ANNUAL COST = ♦6.94 
ANNUAL COST = ♦5.43 
ANNUAL COST = ♦23.77 



ANNUAL COST » ♦6.55 

ANNUAL COST - ♦0.13 
ANNUAL COST » ♦12.44 
ANNUAL COST » ♦78.92 

ANNUAL COST » ^2.55 
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WAFFLE IRON? 1 
DISPOSAL? 1 



ANNUAL COST » «1.31 
ANNUAL COST - «0.45 



COST OF FOOD PREPARATION APPLIANCES PER YEAR « «136.59 



FOOD PRESERVATION APPLIANCES 
FREEZER (MANUAL DEFROST)? O 

FREEZER (AUTO DEFROST)? 1 

ANNUAL COST « «128.7 
REFRieERATOR/FREEZER(AUTO DEFROST)? 1 

ANNUAL COST ° «117.57 
REFRIGERATOR/FREEZER (MANUAL DEFROST)? 



COST OF FOOD PRESERVATION APPLIANCES PER YEAR « «246.26 



LAUNDRY APPLIANCES 
CLOTHES DRYER? 1 

ANNUAL COST « «65.04 

HAND IRON? 1 

ANNUAL COST » «3.93 

MASHING MACHINE? 1 

ANNUAL COST = <i6.74 

ELECTRIC WATER HEATER? O 

QUICK RECOVERY ELECTRIC WATER HEATER? O 



COST OF LAUNDRY APPLIANCES PER YEAR « «75.71 



AIR CONDITIONING APPLIANCES 



AIR CLEANER? O 
ROOM AIRCONDITIONER? O 
ELECTRIC BLANKET? 
DEHUMIDIFIER? O 
ATTIC FAN? 1 
CIRCULATING FAN? 
ROLLAWAY FAN? O 
CEILING FAN? 1 
FAN (WINDOW)? O 
HEATER (PORTABLE)? O 
HEATING PAD? O 
HUMIDIFIER? O 



ANNUAL COST ° «19.06 



ANNUAL COST ° «2.62 
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COST OF AIR CONDITIONING APPLIANCES PER YEAR = «21.68 



HEALTH Sc BEAUTY APPLIANCES 
GERMICIDAL LAMP? O 



HAIRDRYER? 2 
INFRARED HEAT LAMP? O 
SHAVER? O 
SUNLAMP? O 

ELECTRIC TCKJTHBRUSH? O 
VIBRATOR? 1 



ANNUAL COST - «1.83 



ANfaJAL COST » to- 13 



COST OF HEALTH & KAUTY APPLIANCES PER YEAR - ♦1.96 



RADIO? 2 

RADIO-RECORD PLAYER? 2 
MICROCOMPUTER? 2 

B ac w TV <sca-iD state)? 2 

B 8c W (TUBE TYPE)? O 
COLOR TV (TUBE TYPE)? O 
COLOR TV (SOLID STATE)? 2 



HOI« ENTERTAINMENT APPLIANCES 

ANNUAL COST - «11.26 
ANNUAL COST - ♦14.27 
ANNUAL COST - ^9. 17 
ANNUAL COST - ♦13.1 



ANNUAL COST « ♦IS. 1 



COST OF HOC ENTERTAIWIENT APPLIANCES PER YEAR - ♦60.91 



CLOCK? 4 
FLOOR POLISHER? O 
SEWING MACHIhC? 1 
VACUUM CLEANER? 2 



HOUSEWARES M>PLIANCES 

ANNUAL COST - ♦4.45 



ANNUAL COST » ♦0.72 
ANNUAL COST « ^6.02 



COST OF HOUSEWARES APPLIANCES PER YEAR « ♦I 1.2 



TOTAL ANNUAL APPLIANCE COST - ♦556.35 
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Prosram2. VIC Version. 

5 REM ELECTRIC USAGE ESTIMATOR VIC VERSION 
10 DEF FNA(X)=INT(X*100)/100:DEF FNP1(A)=L-LE 

N(STR$(A) )+l 
30 L=18:PRINT"ELECTRC USAGE ESTIMATR" : GOSUB46 



50 PRINT"ELECTRICITY COST IN" : PRINT "CENTS/KWH 
(E.G. 5.14)=": INPUTC : PRINT " { CLEAR} " 

60 PRINT"RESPOND WITH NUMBER OFAPPLIANCES USE 
D IN HOME" 

7 C=C/ 100 : F0RI=1T07 : READQ$ ( I ) : NEXT : GOSUB460 

80 SW=0:FORJ=1TO7:SK=0:PRINTQ$(J) iPRINT" A 
PPLI ANCES " : PRINTTAB (15);" COST " 

9 READA$ , W , K : I FASC ( A$ ) =42 ANDK=0THEN1 2 5 

1 00 N=0 : PRINTA$ ; : INPUTN 

110 V=FNA(C*K*N) :X=V:IFN>0THENSK=SK+K*N:GOSUB4 

5 : PRINT " $ " 7 X : GOTO90 
120 PRINT :GOTO90 

125 PRINTTAB(8) 7 "WAIT" : FORX=1TO2000 : NEXT 

130 GOSUB460: PRINT "COST OF "7Q$(J)7" APPLIANCE 

S PER YEAR = ":PRINT"$"7FNA(C*SK) 
1 40 GOSUB460 : SW=SW+SK : NEXT : GOSUB460 
150 PRINT"TOTAL ANNUAL APPLIANCE COST= "7FNA(S 

W*C) :END 

160 DATA FOOD PREPARATION, FOOD PRESERVATION, LA 

UNDRY,AIR CONDITIONING 
170 DATAHEALTH & BEAUTY, HOME ENTERTAINMENT , HOU 

SEWARES 

180 DATABLENDER, 300,1, BROILER, 1140, 85, CARVING " 
KNIFE, 92, 8 

190 DATACOFFEE MAKER, 894, 106 , DEEP FRYER, 1448, 8 

3 , DISHWASHER, 1201,363 
200 DATAEGG COOKER, 516 , 14 , FRYING PAN, 1196 , 100 , 

HOT PLATE, 1200,90 
210 DATAMIXER, 127, 2, MICROWAVE OVEN, 1450 , 190 , OV 

EN, 12200, 1205 
220 DAT ARO ASTER, 1333, 60, SANDWICH GRILL, 1161 , 33 

, TOASTER, 1146, 39 
2 30 DAT AT RASH COMPACTOR, 400 , 50 , WAFFLE IRON, 120 

0,20, DISPOSAL, 445 , 7 
240 DATA***, 0,0 

2 50 DATAFREEZER(MAN DEFROST) , 480 , 1320 , FREEZER( 

AUTODEFROST) ,480,1965 
260 DATAREFRIGFREEZR-AUTODEF, 540, 1795 
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2 70 DATAREFRIG/FREEZR-MANDEF, 540 , 700 

280 DAT A***, 0,0, CLOTHES DRYER, 4856 , 993 , HAND IR 
ON, 1100,60 

290 DATAWASHING MACHINE , 512 , 103 , ELEC WATER HEA 

TER, 2475,4219 
300 DATAQUICK REC WATR HEATR, 4474 , 481 1 ,***, , 

310 DATAAIR CLEANER, 50 , 216 , ROOM AIRCONDITIONER 
,860,860 

320 DATAELECTRIC BLANKET , 177 , 147 , DEHUMIDIFIER, 
257 377 

330 DATAATTIC FAN, 370 , 291 , CIRCULATING FAN, 88, 4 

3,R0LLAWAY FAN, 171, 138 
340 DATACEILING FAN, 70,40 

3 50 DATAFAN( WINDOW) , 200 , 170 , HEATER (PORTABLE) , 1 

322,176 

360 DATAHEATING PAD, 65 , 10 , HUMIDIFIER, 177 , 163 
370 DATA***, 0,0, GERMICIDAL LAMP , 20 , 141 , HAIRDRY 
ER,381,14 

380 DATAINFRARED HEAT LAMP , 250 , 13 , SHAVER, 15 , . 

5, SUNLAMP, 279, 16 
390 DATAELECTRIC TOOTHBRUSH, 1 . 1 , 1 , VIBRATOR, 40 , 

2 ***, , 

400 DATARADIO, 7 1,86, RADIO-RECORD PLAYER, 109 , 10 

9 , MICROCOMPUTER, 180 , 70 
410 DATAB&W TV (SOLID STATE) , 45 , 100 , B&W TV (TUB 

TYPE) , 100,220 
420 DATACOLOR TV (TUBE TYPE) , 240 , 528 , COLOR TV(S 

OLID STATE, 145, 100 
430 DATA***, 0,0, CLOCK, 2, 17, FLOOR POLISHER, 305 , 

15, SEWING MACHINE, 7 5, 11 
440 DATAVACUUM CLEANER, 630 , 46 ,***, , 
450 V=FNP1 (V) :PRINTTAB(V) ; : RETURN 
460 PRINT" RETURN 



ProsramS. Microsoft Version. 

5 REM ELECTRIC USAGE ESTIMATOR 
10 DEF FNA(X)=INT(X*100)/100 

30 L=18: PRINT" {clear} ELECTRO USAGE ES 

TIMATOR" : GOSUB460 
50 PRINT"ELECTRICITY COST IN" : INPUT "CENTS/KWH 

(E.G. 5.14)=";C:PRINT"" 
60 PRINT"RESPOND WITH NUMBER OF APPLIANCES US 
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ED {right} in home" 
7 C=C/ 100 : F0RI=1T07 : READQ$ ( I ) : NEXT : GOSUB460 
80 SW=0:FORJ=1TO7:SK=0:PRINTQ§(J) ; " APPLIANCE 

S " 7 : PRINTTAB ( 30 ) ; " COST " : GOSUB460 
9 READA? , W , K : I FASC ( A§ ) =42 ANDK=0THEN1 2 5 
1 00 N=0 : PRINTA? ; : INPUTN 

110 V=FNA(C*K*N) :X=V:IFN>0THENSK=SK+K*N:GOSUB4 

5 : PRINT " { UP 1 $ " ; X : GOTO90 
120 PRINT :GOTO90 

125 PRINTTAB ( 16 ) ; "WAIT" : FORX=1TO2000 :NEXT 

130 PRINT" {clear} ":GOSUB460: PRINT "COST OF ";Q$ 

(j);" APPLIANCES PER YEAR = ": PRINT" $ 

";FNA(C*SK) 
1 40 GOSUB460 : SW=SW+SK : NEXT : GOSUB460 
150 PRINT"TOTAL ANNUAL APPLIANCE COST= ";FNA(S 
W*C):END 

160 DATA FOOD PREPARATION, FOOD PRESERVATION, LA 

UNDRY,AIR CONDITIONING 
170 DATAHEALTH & BEAUTY, HOME ENTERTAINMENT , HOU 

SEWARES 

180 DAT ABLENDER, 300,1, BROILER, 11 40, 8 5, CARVING " 
KNIFE, 92, 8 

190 DATACOFFEE MAKER, 894, 106 , DEEP FRYER, 1448, 8 

3 , DISHWASHER, 1201 , 363 
200 DATAEGG COOKER, 516 , 14 , FRYING PAN, 1196 , 100 , 

HOT PLATE, 1200,90 
210 DATAMIXER, 127, 2, MICROWAVE OVEN, 1450 , 190 , OV 

EN, 12200, 1205 
220 DATAROASTER, 1333, 60, SANDWICH GRILL, 1161 , 33 

, TOASTER, 1146, 39 
230 DATATRASH COMPACTOR, 400, 50, WAFFLE IRON, 120 

0,20, DISPOSAL , 445 , 7 
240 DATA***, 0,0 

250 DATAFREEZER(MAN DEFROST) , 480 , 1320 , FREEZER( 

AUTODEFROST) ,480,1965 
260 DATAREFRIGFREEZR-AUTODEF, 540, 1795 
2 70 DATAREFRIG/FREEZR-MANDEF , 540 , 700 
280 DATA***, 0,0, CLOTHES DRYER, 4856 , 993 , HAND IR 

ON, 1100,60 

290 DATAWASHING MACHINE, 512 , 103 , ELEC WATER HEA 

TER, 2475,4219 
300 DATAQUICK REC WATR HEATR,4474,4811 , ***, ,0 

310 DATAAIR CLEANER, 50 , 216 , ROOM AIR CONDITIONE 
R, 860, 860 
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320 DATAELECTRIC BLANKET , 177 , 147 , DEHUMIDIFIER, 
257,377 

330 DATAATTIC FAN, 370 , 291 , CIRCULATING FAN, 88, 4 

3,R0LLAWAY FAN, 171, 138 
340 DATACEILING FAN, 70, 40 

350 DATAFAN( WINDOW) , 200 , 170 , HEATER ( PORTABLE) , 1 
322,176 

360 DATAHEATING PAD, 65 , 10 , HUMIDIFIER, 177 , 163 
370 DAT A***, 0,0, GERMICIDAL LAMP , 20 , 141 , HAIRDRY 
ER,381,14 

3«0 DATAINFRARED HEAT LAMP, 250 , 13 , SHAVER, 15 , . 

5, SUNLAMP, 279, 16 
390 DATAELECTRIC TOOTHBRUSH, 1 . 1 , 1 , VIBRATOR, 40 , 

2,***, 0,0 

400 DATARADIO, 7 1,86, RADIO-RECORD PLAYER, 109 , 10 

9 , MICROCOMPUTER, 180 , 70 
410 DATAB&W TV (SOLID STATE ), 45 , 100 , B&W TV (TUB 

TYPE) , 100,220 
420 DATACOLOR TV (TUBE TYPE) , 240 , 528, COLOR TV(S 

OLID STATE, 145, 100 
430 DATA***, 0,0, CLOCK, 2, 17, FLOOR POLISHER, 305 , 

15, SEWING MACHINE, 75, 11 
440 DATAVACUUM CLEANER, 6 30, 46, ***, 0,0 
450 PRINTTAB(30) 7 xRETURN 

460 PRINT" 

" : RETURN 



Pro3ram4. Atari Version^ 

5 REM ** ELECTRIC USAGE ESTIMATOR »* 

8 REM *** ATARI VERSION »*t 

lO DIM Q* <20»8) , QL <7) , TT* <40) , A* <40) 

20 ? CHR*<125) ^ 

30 POKE 85,4s? " laiB=fi>i;K»Mij=lsW=M=CTPliiir 

fniS"sGOSUB 430 
40 ? "ELECTRICITY COST IN CENTS/KWH": 

? "<E.G., 5.14)= INPUT C 

50 GOSUB 430s? "RESPOND WITH NUMBER O 

F APPLIANCES" s ? "USED IN HOME" 
60 C=C/ lOOs GOSUB 430sFOR 1=1 TO 7sREA 

D TT*s < I »20-H > =TT*s QL ( I > =LEN (TT* 

)5NEXT I 

70 SW=OsFOR J=l TO 75SK=05POKE 85,55? 
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Q*<J«20+1, J»20+QL<J) ) ; " APPLIANCE 
S" 

? :READ A*,W,K:IF ASC<A«)=42 AND K 
=0 THEN 120 

TRAP 90s? A*;: INPUT NsTRAP 40000 
IF N>0 THEN SK=SK+K«Ns? I I I |l| |iW 

IF N>0 THEN TT=C«K»N: PRINT INT(TT 
« 100) / lOO: GOTO 80 
? sGOTO 80 

GOSUB 430s? "COST OF ";Q«<J»20+1, 
J*20+QL ( J) > s ? "APPLIANCES PER YEA 
R = «"; 

TT=INT (C»SK«100) /lOOsPRINT TT 
GOSUB 430s SW=SW+SKs NEXT J : GOSUB 4 

30 

PRINT "TOTAL ANNUAL APPLIANCE COS 
T= «"; INT(SW*C»100) /lOOsEND 
DATA FOOD PREPARAT I ON , FOOD PRESER 
VATION, LAUNDRY, AIR CONDITIONING 
DATA HEALTH 8c BEAUTY, HOME ENTERTA 
INMENT, HOUSEWARES 

DATA BLENDER, 300, 1 , BROILER, 1 140, 8 
5, CARVING KNIFE, 92, 8 

DATA COFFEE MAKER , 894 , 1 07 , DEEPFRY 
ER, 1448, 83, DISHWASHER, 1201 , 363 
DATA EGG COOKER , 5 1 6 , 1 4 , FRY I NG PAN 
, 1196, 100, HOT PLATE, 1200,90 
DATA MIXER, 127, 2, MICROWAVE 0VEN,1 
450, 190, OVEN, 12200, 1205 
DATA ROASTER, 1333, 60, SANDWICH GRI 
LL, 1 161 , 33, TOASTER, 1 146, 39 
DATA TRASH COMPACTOR , 400 , 50 , WAFFL 
E IRON, 1200, 20, DISPOSAL, 445, 7 
DATA **»,0,0 

DATA FREEZER (MANUAL DEFROST ), 480 , 
1320,FREEZER(AUT0 DEFROST) ,480, 19 
65 

DATA REFRIGERATOR/FREEZER (AUTO DE 
FROST) , 540, 1795 

DATA REFRIGERATOR/FREEZER (MANUAL 
DEFROST) , 540,700 
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270 DATA «»*, 0,0, CLOTHES DRYER, 4856, 9 

93, HAND IRON, 1100, 60 ^ 
280 DATA MASHING MACHI NE , 5 1 2 , 1 03 , ELEC ^ 

TRIG WATER HEATER , 2475 , 42 1 9 
290 DATA QUICK RECOVERY ELECTRIC WATE ^ 
R HEATER, 4474, 4011, *«», 0,0 ^ 
300 DATA AIR CLEANER, 50, 216, ROOM AIRC 

ONDITIONER,860,860 ^ 
310 DATA ELECTRIC BLANKET , 1 77 , 1 47 , DEH ^ 

UMIDIFIER, 257, 377 
320 DATA ATTIC FAN , 370 , 29 1 , C I RCULAT I N ^ 
G FAN, 88, 43, ROLLAWAY FAN, 171, 138 ^ 
325 DATA CEILING FAN, 70, 40 
330 DATA FAN<WINDOW) ,200, 170,HEATER<P 

ORTABLE) , 1322, 176 ^ 
340 DATA HEATING PAD , 65 , 1 O , HUM I D I F I ER 

177 163 ^ 
350 data' *««, 0,0, GERMICIDAL LAMP,20,1 ^ 

41, HAIRDRYER, 381, 14 
360 DATA INFRARED HEAT LAMP , 250 , 1 3 , SH ^ 
AVER, 15, 0.5, SUNLAMP, 279, 16 ^ 
370 DATA ELECTRIC TOOTHBRUSH , 1 . 1 , 1 , V I 

BRAT0R,40,2, *««,0,0 ^ 
380 DATA RADIO, 71, 86, RADIO-RECORD PLA ^ 

YER, 109, 109, MICROCOMPUTER, 180,70 
390 DATA B 8c W TV (SOLID STATE), 45, 10 w 
0,B Sc W <TUBE TYPE) , 100,220 ^ 
400 DATA COLOR TV < TUBE TYPE ), 240 , 528 

, COLOR TV (SOLID ST ATE ) , 1 45 , 1 OO ^ 
410 DATA *«», 0,0, CLOCK, 2, 17, FLOOR POL ^ 

ISHER, 305, 15, SEWING MACH I NE , 75 , 1 1 
420 DATA VACUUM CLEANER , 630 , 46 ,«*«, O , ^ 

O 

430 ? s? " 

11 

440 RETURN ^ 
450 PRINT SPRINT sRETURN 

460 REM THE NUMBER OF HOURS PER YEAR ^ 

480 REM A*=APPLIANCE, W=AVG WATTS, K= ^ 

ANNUAL KWH, N=# OF APPLIANCES 

490 REM K MAY BE ADJUSTED BY THE USER w 

BY DETERMINING ^ 

104 ^ 



500 REM THE NUMBER OF HOURS PER YEAR 

THE APPLIANCE IS USED AND 
510 REM CALCULATING K=WATTS»HOURS/ 1 OO 
520 REM SW=SUM ANNUAL KWH FOR ALL APP 
LIANCES 

530 REM SK=SUM ANNUAL KWH FOR EACH AP 

PLIANCE GROUP 
540 REM Q*=NAME OF EACH OF 7 GROUPS O 

F APPLIANCES 



Program 5. Color Computer Version. 

5 REM ELECTRIC USAGE ESTIMATOR COLOR COMPUT 
ER VERSION 

10 DEFFNA(X)=INT(X*100)/100:REM ELECTRIC USAG 

E ESTIMATOR 
20 CLS 

30 PRINTTAB( 4) "ELECTRIC USAGE ESTIMATOR" : GOSU 
B430 

40 INPUT"ELECTRICITY COST IN CENTS/KWH (E.G 

. 5.14)= "7C:GOSUB430 
50 GOSUB430:PRINT"RESPOND WITH NUMBER OF 

APPLIANCES USED IN HOME" 
60 C=C/ 100 : GOSUB430 : F0RI=1T07 : READQ$ ( I ) : NEXT : 

GOSUB430 

7 SW=0 : F0RJ=1T07 : SK=0 : PRINT : PRINTTAB ( 10 ) ; Q$ { 

I) ;" APPLIANCES" 
80 PRINT : READA$ , W,K: IFASC( A$ )=42ANDK=0THEN120 

90 PRINTA$ 7 : INPUTN 

100 IFN>0THENSK=SK+K*N: PRINTTAB (10) "ANNUAL COS 

ip=: " . 

105 PRINTUSING "$####.##" 7 FNA ( C*K*N ) : GOTO80 
110 PRINT :GOTO80 

120 GOSUB430:PRINT"COST OF "7Q$(J);" APPLIANCE 

S PER YEAR — " • 
125 PRINTUSING"$####.##"7FNA(C*SK) 
130 GOSUB430:SW=SW+SK:NEXT:GOSUB430 
140 PRINT "TOTAL ANNUAL APPLIANCE COST = "7 :P 

RINTUSING"$####.##"7FNA(SW*C) 2END 
150 DATAFOOD PREPARATION, FOOD PRESERVATION, LAU 

NDRY,AIR CONDITIONING 
160 DATAHEALTH & BEAUTY, HOME ENTERTAINMENT , HOU 



105 



SE WARES 

170 DATABLENDER, 300,1, BROILER, 1140, 8 5, CARVING 
KNIFE, 92, 8 

180 DATACOFFEE MAKER, 894, 107 , DEEPFRYER, 1448, 83 

, DISHWASHER, 1201 , 363 
190 DATAEGG COOKER, 516 , 14 , FRYING PAN, 1196 , 100 , 

HOT PLATE, 1200,90 
200 DATAMIXER, 127, 2, MICROWAVE OVEN, 1450 , 190 , OV 

EN, 12200, 1205 
210 DAT ARO ASTER, 1333, 60, SANDWICH GRILL , 1161 , 33 

, TOASTER, 1146, 39 
2 20 DATATRASH COMPACTOR, 400 , 50 , WAFFLE IRON, 120 

, 20 , DISPOSAL , 445 , 7 
230 DATA***, 0,0 

240 DATAFREEZER( MANUAL DEFROST ), 480 , 1320 , FREEZ 

ER(AUT0 defrost) ,480,1965 
250 DATAREFRIGERAT0R/FREEZER(AUT0 defrost), 540 

,1795 

260 DATAREFRIGERAT0R/FREEZER( MANUAL DEFROST), 5 
40,700 

2 70 DAT A***, 0,0, CLOTHES DRYER, 4856 , 993 , HAND IR 

ON, 1100,60 

280 DATAWASHING MACHINE, 512 , 103 , ELECTRIC WATER 

HEATER, 2475,4219 
290 DATAQUICK RECOVERY ELECTRIC WATER HEATER, 4 

474,4811,***, 0,0 
300 DATAAIR CLEANER, 50 , 216 , ROOM AIR CONDITIONE 

R, 860, 860 

310 DATAELECTRIC BLANKET, 177 , 147 , DEHUMIDIFIER, 
257,377 

320 DATAATTIC FAN, 370 , 291 , CIRCULATING FAN ,^8, 4 
3,R0LLAWAY FAN, 171, 138 

3 25 DATACEILING FAN, 70,40 

3 30 DATAFAN( WINDOW) , 200 , 170 , HEATER ( PORTABLE ) , 1 
322,176 

340 DATAHEATING PAD, 65 , 10 , HUMIDIFIER, 177 , 163 
3 50 DAT A***, 0,0, GERMICIDAL LAMP , 20 , 141 , HAIRDRY 
ER,381,14 

360 DATAINFRARED HEAT LAMP , 250 , 13 , SHAVER, 15 , . 

5, SUNLAMP, 279, 16 
370 DATAELECTRIC TOOTHBRUSH , 1 . 1 , 1 , VIBRATOR, 40 , 

2,***, 0,0 

380 DATARADIO, 7 1,86, RADIO-RECORD PLAYER, 109 , 10 

9 , MICRO-COMPUTER, 180 , 70 
3 90 DATAB & W TV (SOLID STATE ), 45 , 100 , B & W (T 
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m 










UBE TYPE) , 100, 220 




400 


DATACOLOR TV (TUBE TYPE ), 240 , 528 , COLOR TV " 
(solid state) / 145,100 




410 


DATA* * * , , , CLOCK ,2,17, FLOOR POLI SHER, 305, 
15, SEWING MACHINE, 7 5, 11 




420 


DATAVACUUM CLEANER, 6 30 , 46 , '^'^ , kJ , 




430 


PRINT : PRINT : RETURN 




440 


REM A?=APPLIANCE, W=AVG WATTS, K=ANNUAL KW 






H, N=# OF APPLIANCES 


\^ 


4 50 


REM K MAY BE ADJUSTED BY THE USER BY DETER 




MINING 




460 


REM THE NUMBER OF HOURS PER YEAR THE APPLI 






ANCE IS USED AND 


470 


REM CALCULATING K=WATTS HOURS/ 1000 . 




480 


REM SK= SUM ANNUAL KWH 










Prosram 6« TI-99 Version. 




10 


REM electric usage estimator, TI v 






er si on 


20 


DEF FNA<X)=INT(X»100) /lOO 


\^^/ 


30 


CALL CLEAR 




40 


PRINT " electric usage estimator" 


\^^/ 


41 


GOSUB 450 




50 


INPUT "electricity cost in cents/ 
kwh (e.g. 5.14)= ":C 




51 


GOSUB 450 




60 


PRINT "respond with number of 




{6 SPACES>appl i ances used in home" 




70 


c=c/ioo 




71 

72 


FOR 1=1 TO 7 
READ Q«<I> 




73 


NEXT I 




74 


GOSUB 450 


80 


sw=o 




81 


FOR J=l TO 7 




82 
83 


SK=0 

PRINT Q*(J)5" appliances " 




85 


PRINT TAB < 17) ; "annual cost" 




90 
92 


READ A«,W,K 

IF ASC(A«)<>42 THEN lOO 
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95 IF K=0 THEN 130 

100 PRINT A«; ^ 

101 INPUT N ^ 
no IF N<=0 THEN 114 

111 SK=SK+K«N ^ 

112 YY=FNA <C«K*N> 

113 PRINT TAB (20) ; "*" ; YY 

114 GOTO 90 

120 PRINT 

121 GOTO 90 

130 GOSUB 450 ^ 

131 YY=FNA<C*SK) ^ 

132 PRINT "cost of ";Q*(J);" applianc 
esperyear=" ^ 

135 PRINT "*";YY 

140 GOSUB 450 

141 SW=SW+SK ^ 

142 NEXT J 

143 GOSUB 450 
148 YY=FNA<SW»C> ^ 
150 PRINT "total annual appliance 

€6 SPACES>cost = " ; YY 
152 END 

160 DATA -food preparat i on , food preser 

vation, 1 aundr y , ai r condi t i oni ng 
170 DATA health 8c beauty, home enterta 

i nment , housewares 
ISO DATA blender, 300, 1, broiler, 1140,S 

5, carving knife, 92, 8 W 
190 DATA coffee maker , 894 , 1 06 , deep fr 

yer , 1448, 83, di sh washer , 1201 , 363 
200 DATA egg cooker , 516, 14, fryi ng pan 

,1196, 100,hot plate, 1200,90 
210 DATA mi xer , 127, 2, mi crowave oven,l 

450, 190, oven, 12200, 1205 ^ 
220 DATA roaster , 1333, 60, sandwi ch gri 

11 , 11 61, 33, toaster, 1146,39 
230 DATA trash compactor , 400, 50, waf f 1 ^ 

e iron, 1200, 20, disposal ,445,7 ^ 
240 DATA «**,0,0 

250 DATA freezer (manual defrost), 480 ^ 
, 1320, freezer (auto def r ost ) , 480, ^ 

208 



Sign/' 



(auto d 



( manual 



1965 

260 DATA re-fri gerator /freezer 

ef rost ) ,540, 1795 
270 DATA ref ri gerator /freezer 

defrost) ,540,700 
280 DATA »»», 0,0, clothes dryer, 4856, 9 

93, hand iron, 1100,60 
290 DATA washing machi ne, 512, 103, el ec 

trie water heater , 2475, 4219 
300 DATA quick recovery electric wate 

r heater, 4474, 4811, »**, 0,0 
310 DATA air cl eaner , 50, 216, room aire 

ondi t i oner , 860, 860 
320 DATA electric b 1 an ket , 1 77 , 1 47 , deh 

umidifier, 257, 377 
330 DATA attic f an , 370, 291 , ci rcul at i n 

g f an , 88, 43, r ol 1 away fan, 171, 138 
340 DATA ceiling fan, 70, 40 
350 DATA fan (window) , 200, 170, heater (p 

ortable) , 1322, 176 
360 DATA heating pad , 65 , 1 O , humi d i f i er 

, 177, 163 

370 DATA «»«, O, O, germicidal lamp, 20,1 

41 , hai r dryer , 381 , 14 
380 DATA infrared heat 1 amp , 250 , 1 3 , sh 

aver , 15,0.5, sun 1 amp , 279, 16 
390 DATA electric t oothbr ush , 1 . 1 , 1 , vi 

brator ,40,2, »*»,0,0 
400 DATA radio, 71, 86, radio-record pla 

yer, 109, 1 09 , mi cr o-comput er , 180,70 
410 DATA b & w tv (solid state), 45, 10 

0,b & w tv (tube t ype ) , 1 00 , 220 
420 DATA color tv (tube t ype ) , 240 , 528 

, color tv (solid state) , 145, 100 
430 DATA »»«, 0,0, clock, 2, 17, floor pol 

isher ,305, 15, sewing machine, 75, 11 
440 DATA vacuum c 1 eaner , 630 , 46 ,*»», O , 

O 

450 PRINT s 

451 60SUB 460s : s 

452 RETURN 
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460 PRINT " 

470 RETURN 

480 REM a$=appl i ance, w=avg watts, k= 
annual kwh, n=# of appliances 

490 REM k may be adjusted by the user 
by determining 

500 REM the number of hours per year 
the appliance is used and 

510 REM calculating k=watt sthour s/ lOO 
O. 

520 REM sw=sum annual kwh for all app 
1 i ances 

530 REM sk=sum annual kwh for each ap 

pliance group 
540 REM q*= name of each of 7 groups 

of appliances 
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Home 
Heating And 

Coolins 

Audit 



Home Heating And 
Cooling Audit 



Note: For all computers except the unexpanded VIC-20, add the DATA 
statements in lines 2000-2995 (Program 7) to your version of the 
heating audit program. Add the DATA statements of lines 2000-3000 
(Program 14) to your version of the cooling audit program. For the 
VIC-20 add only DATA statements (from Programs 7 and 14) for the 
cities nearest your home plus line 2990 for the heating audit or line 
2995 for the cooling audit. 

Have you, like thousands of Americans, added insulation, storm 
windows, a setback thermostat, and caulking to improve the 
energy efficiency of your home? Other than the 15% energy credit 
you could claim on your taxes starting in 1979, it is difficult to 
know what savings you are achieving with these substantial 
investments of time and money. A colder than normal winter will 
cause increased fuel use for heating, which may or may not 
overshadow the energy savings by insulating. On the other hand, 
the winter of 1979-80 was so mild in most parts of the United States 
that it brought significant fuel savings for most homeowners 
whether they insulated or not. However, energy costs have 
increased so much in some areas and for some fuels that these 
consumers may not have achieved a monetary savings. 

The cost for heating or cooling a house is due to three things: 

1) outside temperature 

2) thermostat setting 

3) insulation (including air infiltration) 

Only the last two are under your control. The most cost-effective 
action you can take is to raise the thermostat in the summer and 
lower the thermostat in winter. The next most effective is to 
increase the insulation. But even after you have done this, the fuel 
use will still be driven by the outside temperature. In order to 
compare the severity and predict fuel use, meteorologists have 
developed two concepts: 

1) Heating degree day 

2) Cooling degree day 
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Heating degree day is an estimate of the heating necessary in the 
winter, and cooling degree day is an estimate of the cooling 
necessary in the summer. Both are calculated from the maximum 
and minimum temperatures and summed each day to accumulate 
monthly and yearly totals. 

Heating degree days accumulate on days with an average 
temperature cooler than 65 °F, and cooling degree days 
accumulate on days with an average temperature warmer than 
65 °F. These data are recorded for several hundred stations in the 
United States and are available in "Local Climatological Data," a 
publication from the U. S. Dept. of Commerce, National Climatic 
Center, Federal Building, Asheville, NC 28801. The concepts of the 
cooling and heating degree days have shown excellent correlation 
with fuel use in my residence (see Figures 1 and 2) both in heating 
and air conditioning on a month by month basis, and an even 
higher correlation for an entire season. This correlation prompted 
me to develop a BASIC program for calculating an energy use rate 
for one year and predicting energy use in the following years 
based on degree days. Using this technique, you can calculate 
energy fuel savings as well as economic savings, even though the 
weather, energy cost, and energy efficiency of your home are 
changing month by month and year by year. 

Each program requires less than 8K and can be shortened 
considerably by selectively eliminating DATA statements to 
restrict the geographical coverage. Each program requires the 
homeowner to have records of fuel use and cost for two years or 
more. The programs can evaluate efficiency from the years 1974 
through and including 1980. Any type of fuel can be used; just 
remember that the units you input will be the units calculated for 
the fuel savings. Similarly, the rate is given as cost/fuel units, and 
so is dependent upon the units you input. Changing fuels or 
changing residences invalidates the technique. 

The heating season is from October 1 to May 1, and the 
cooling season is from April 1 to November 1; seasons are made 
extra long in order to accommodate the wide range of climates in 
the United States. Because many fuels are used for other purposes 
such as hot water heating, home lighting, etc., the off season 
minimum usage is used to remove these factors from the seasonal 
weather effects. Thus the heating program requests the July fuel 
use, and the cooling program requests the January fuel use. Should 
a user live between cities, listed runs for all cities in that region will 
allow interpolation. Following are some key variables: 
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ST$= state 
CT$=city 

H(1,I) = degree days for 1974 for city I 

X = fuel use/degree days for base year 

H = predicted fuel use minus actual fuel used 

RATE(k) = cost/fuel unit 

F(k) = fuel unit 

D(k) = cost 

k = year 

Ml = fuel used in minimum month 

The precision of this technique is good, but may predict only 
small savings or even loss in years when no energy conservation 
practices were in effect. This uncertainty is due to the variance 
between day and night temperatures, which is not always well 
represented by the mean temperature for the day. 




Nov. Dec. Jan. Feb. March April May June July 



Figure 1. Heating Degree Days by Month for 1979-80 in Houston, 
TX and Natural Gas Used in the Author's Residence. 



2400 
2000 



X 1600 



1200 



3 800 



400 



Cooling Degree Days^^^ 




500 
400 
300 



Q 

<v 

GO 

a 

DO 



200 I' 
100 1 


April May June July Aug. Sept. Oct. Nov. Dec. Jan. 

Figure 2. Cooling Degree Days by Month for 1979 in Houston, TX 
and Kilowatt Hours used in the Author^s Residence. 
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Table 1 . Sample Run Of Heating Fuel Audit. 



HEATING FUEL AUDIT 



STATE (DON'T ABBREVIATE)? TEXAS 



w 

W 



THE WINTER OF 73-74 IS CALLED 74, CHOICES ARE 74 TO 80 W 

STARTING YEAR? 78 \_J 
LAST YEAR? 80 

CHOICES OF INPUT ARE BY YEAR OR MONTH ^ 
BY YEAR (Y OR N)? Y 

UNITS OF FUEL CAN BE ANYTHING: GALLONS, KWH, CUFT, W 
ALL FUEL ENTRIES MUST BE THE SAME UNITS 

YEAR= 78 

FUEL USE FOR OCT 1 TO MAY 1? 650 ^ 
COST ( DOLLARS ) ? 205.05 

\^ 
\^ 

FUEL USE FOR JULY? 10 V«/ 
STATE CITY 

1 TEXAS BROWNSVILLE ^ 

2 TEXAS AMARILLO 

3 TEXAS FORT WORTH W 

4 TEXAS HOUSTON 



YEAR= 79 

FUEL USE FOR OCT 1 TO 
COST (DOLLARS)? 182.7 


MAY 


1? 


526 


YEAR= 80 

FUEL USE FOR OCT 1 TO 
COST (DOLLARS)? 120.6 


MAY 


1? 


318 



CHOOSE # OF CITY? 4 



CHOSEN CITY= HOUSTON 

RATEdST YR)= .31 \^ 



YEAR RATE FUEL SAVED DOLLARS SAVED 

79 .34 15 5.51 

80 .37 178 67.54 



(+ = SAVINGS,- = LOSS) W 
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Table 2. Sample Run Of Cooling Fuel Audit* 



COOLING FUEL AUDIT 



STATE (DON'T ABBREVIATE)? TEXAS 

THE SUMMER OF 1974 IS CALLED 74, CHOICES ARE74 TO 80 

STARTING YEAR? 78 
LAST YEAR? 80 

CHOICES OF INPUT ARE BY YEAR OR MONTH 
BY YEAR (Y OR N)? Y 

UNITS OF FUEL CAN BE ANYTHING: GALLONS, KWH, CUFT, 100 CUFT 
ALL FUEL ENTRIES MUST BE THE SAME UNITS 

YEAR= 78 



FUEL USE FOR APR 1 TO NOV 
COST ( DOLLARS ) ? 374.28 


1? 


10422 


YEAR= 79 






FUEL USE FOR APR 1 TO NOV 


1? 


9483 


COST (DOLLARS)? 402.56 






YEAR= 80 

FUEL USE FOR APR 1 TO NOV 
COST ( DOLLARS ) ? 528.08 


1? 


10204 



FUEL USE FOR JANUARY? 679 

STATE CITY 

1 TEXAS BROWNSVILLE 

2 TEXAS AMARILLO 

3 TEXAS FORT WORTH 

4 TEXAS HOUSTON 

CHOOSE # OF CITY? 4 



CHOSEN CITY= HOUSTON 
RATE (1ST YR)= .03 

YEAR RATE FUEL SAVED DOLLARS SAVED 

79 .04 367 15.59 

80 .05 734 37.99 



(+ = SAVINGS,- = LOSS) 
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Program 2. VIC Version. 

1 REM HEATING FUEL AUDIT VIC VERSION 

11 REM PROGRAM REQUIRES HEATING FUEL USE (ANN 

UAL OR BY MONTH) " 

12 REM HEATING MONTHS ARE OCT 1 TO MAY 1, 2 Y 

RS OR MORE REQUIRED 

13 REM OUTPUT IS FUEL SAVINGS, AND $ SAVINGS 
17 DEFFNTRC(E)=INT(E*100)/100 

20 PRINT" {CLEAR} HEATING FUEL AUDIT{D0WN}" 
22 PRINT"STATE (DON'T ": INPUT" ABBREVIATE) "; B$ 

2 3 F0RI = 1T07:READM$ (I) -.NEXT: PRINT 

25 PRINT"THE WINTER OF 73-74 IS CALLED 74, CH 

OICES ARE 74 TO 80" 
27 PRINT: INPUT"STARTING YEAR" ; YS : PRINT : INPUT" 

LAST YEAR"; YE: PRINT 
30 L=YE-YS+1:PRINT"CH0ICES OF INPUT ARE BY Y 

EAR OR MONTH" 
4 INPUT" BY YEAR (Y OR N) " ; A$ : IFASC (A$ ) 089TH 

EN100 

41 PRINT" {CLEAR}UNITS OF FUEL CAN BE ANYTHIN 
G: GALLONS, KWH, CUFT, 100 CUFT" 

4 3 PRINT" ALL FUEL ENTRIES MUST BE THE SAME UN 
ITS" :GOSUB500:PRINT 

47 F0RI=1T0L:PRINT"YEAR= "; INT(YS+I-1) 

48 PRINT"FUEL USE FOR OCT 1 TO" : INPUT"MAY 1"; 

F(I) : INPUT"COST (DOLLARS) ";D(I) 
90 GOSUB500:NEXT:GOTO200 

100 FORI=1TOL:GOSUB500:PRINT"YEAR = ";INT(YS+I 

-1) :F0RJ=1T07 
105 PRINT"FUEL USE FOR ";M$ (J) ; : INPUTF:PRINT"C 

OST FOR ";M$ (J) ; :INPUTD 
110 F(I) =F(I)+F:D(I)=D(I)+D:NEXT:NEXT 
200 PRINT"FUEL USE FOR" : INPUT" JULY"; MI: 1=1 
220 READST$,CT$(I) ,H(1,I) ,H(2,I) ,H(3,I) ,H(4,I) 

,H(5,I) ,H(6,I) ,H(7,I) 
230 IFLEFT$(ST$,7)=LEFT$(B$,7)THENI=I+1 
240 IFST$="END"THEN250 
245 GOTO220 

250 PRINT"{CLEAR}":J=I-l:LL=YS-74+l:PRINT" S 

TATE";TAB(12) ; "CITY{D0WN} " 
255 F0RI=1T0J 

260 PRINTI;B$;TAB(10) ;CT$ (I) :NEXT 
270 PRINT" {DOWN} ":INPUT"CHOOSE # OF CITY";I:PR 
INT:GOSUB500 
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280 X=(F(1)-7*MI)/H(LL,I) : RATE { 1 ) =D ( 1 ) /F ( 1 ) : H= 

FNTRC(RATE(1) ) 
282 PRINT" {CLEARKHOSEN CITY= " ; CT$ ( I ) : PRINT"R 

ATE (1ST YR)= ";H 
285 PRINT" {DOWN}YEAR RATE FUEL SAVED" 
290 PRINT" SAVED ($) " 

295 F0RK=2T0L 

300 H=H(LL+K-1,I) *X+7*MI-F(K) :RATE(K)=D(K)/F(K 

) :C=H*RATE(K) 
312 H=FNTRC(H) : RATE (K) =FNTRC (RATE (K) ) :C=FNTRC( 

C) 

320 PRINTINT(YS+K-1) ;TAB(4) ;RATE(K) ;TAB(9) ; INT 

(H) ;TAB(15) ;C 
340 NEXT:PRINT:GOSUB500:PRINT" (+ = SAVINGS,- = 
LOSS) ":GOT0255 

500 PRINT" ": RETURN 

1999 DATAOCT , NOV , DEC , J AN , FEB , MAR , APR 



Program 3« Microsoft Version* 

I REM HEATING FUEL AUDIT—ADD DATA LINES 2000 

UP. 

II REM PROGRAM REQUIRES HEATING FUEL USE (ANN 

UAL OR BY MONTH) " 

12 REM HEATING MONTHS ARE OCT 1 TO MAY 1, 2 Y 

RS OR MORE REQUIRED 

13 REM OUTPUT IS FUEL SAVINGS, AND $ SAVINGS 
17 DEFFNTRC(E)=INT(E*100)/100 

20 PRINT"{CLEAR}";TAB(9); "HEATING FUEL AUDIT{ 
04 DOWN}" 

22 INPUT"STATE (DON'T ABBREVIATE) "; B$ 

23 F0RI=1T07:READM$ (I) :NEXT:PRINT 

25 PRINT"THE WINTER OF 73-74 IS CALLED 74^ 

CHOICES ARE 74 TO 80" 
27 PRINT: INPUT"STARTING YEAR" ; YS : PRINT : INPUT" 

LAST YEAR"; YE: PRINT 
30 L=YE-YS+1:PRINT"CH0ICES OF INPUT ARE BY Y 

EAR OR MONTH" 

40 INPUT"BY YEAR (Y OR N) " ; A$ : IFASC ( A$ ) 089TH 

ENIOO 

41 PRINT" {CLEAR}UNITS OF FUEL CAN BE ANYTHIN 

G: GALLONS, KWH, CUFT, 100 CUFT" 
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43 PRINT"ALL FUEL ENTRIES MUST BE THE SAME UN 
ITS" : GOSUB500 : PRINT 

47 F0RI=1T0L:PRINT"YEAR= " ; INT (YS+I-1 ) 

48 INPUT"FUEL USE FOR OCT 1 TO MAY 1";F(I):IN 

PUT"COST (DOLLARS) " ; D ( I ) 
90 GOSUB500:NEXT:GOTO200 

100 FORI=1TOL:GOSUB500:PRINT"YEAR = ";INT(YS+I 

-1) :F0RJ=1T07 
105 PRINT"FUEL USE FOR " ; M$ ( J ) ; : INPUTF : PRINT"C 

OST FOR ";M$ (J) ; :INPUTD 
110 F ( I ) =F ( I ) +F : D ( I ) =D ( I ) +D : NEXT : NEXT 
200 INPUT"FUEL USE FOR JULY" ;MI : 1=1 : PRINT" {CLE 

CLEAR}"; TAB (17) ;"WAIT" 
220 READST$,CT$ (I) , H ( 1 , 1 ) , H ( 2 , 1 ) , H ( 3 , 1 ) , H ( 4 , I ) 

,H(5,I) ,H(6,I) ,H(7,I) 
230 IFLEFT$ (ST$ , 7 ) =LEFT$ (B$ , 7 ) THENI = I + 1 
240 IFST$="END"THEN250 
245 GOTO220 

250 PRINT"{CLEAR}" : J=I-l:LL=YS-74+l:PRINT" 

STATE" ;TAB (21) ; "CITY {DOWN} " 
255 F0RI=1T0J 

260 PRINTI;TAB(9) ;B$;TAB(20) ;CT$(I) :NEXT 
270 PRINT" {DOWN} ":INPUT"CHOOSE # OF CITY";I:PR 
INT 

280 X=(F(1)-7*MI)/H(LL,I) :RATE (1) =D (1) /F (1) :H= 

FNTRC(RATE(1) ) 
282 PRINT"{CLEAR}";TAB(9) ;"CHOSEN CITY= ";CT$( 

I) :PRINTTAB(9) ;"RATE(1ST YR) = ";H 
285 PRINT" {DOWN} YEAR RATE FUEL 

SAVED" 

290 PRINT" SAVED ($) " 

295 F0RK=2T0L 

300 H=H (LL+K-1 , I ) *X+7*MI-F (K) : RATE (K) =D (K) /F (K 

) :C=H*RATE(K) 
312 H=FNTRC(H) : RATE (K) =FNTRC (RATE (K) ) :C=FNTRC( 

C) 

320 PRINTINT(YS+K-1) ;TAB(7) ?RATE (K) ^TAB (13) ; IN 

T(H) ;TAB(29) ;C 
340 NEXT:PRINT:GOSUB500:PRINT" (+ = SAVINGS,- = 

LOSS) ":GOT0255 
500 PRINT" 

~": RETURN 
1999 DATAOCT , NOV , DEC , JAN , FEB , MAR , APR 
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Prosram 4. Atari Version. 


w 


1 


REM HEATING FUEL AUDIT (ATARI VERSI 


w 




ON) 




5 


DIM ML <7) , CTL (20) , F (20) , D (20) , RATE ( 






20) , H (7, 20) 




lO 


DIM T* (20) , B* (20) , M* (8t20) , A* (20) , 






ST* (20) , CT* (20*20) , TT* (20) 




1 1 


REM PROGRAM REQUIRES HEATING FUEL 






USE (ANNUAL OR BY MONTH) 




12 


REM HEATING MONTHS ARE OCT 1 TO MA 


w 




Y 1, 2 YRS OR MORE REQUIRED 




13 


REM OUTPUT IS FUEL SAVINGS, AND * 






SAVINGS 




15 


REM »«««««*|[«»«««««««««*»«»«« 


w 


17 


GRAPHICS O 




20 


PR I NT " IGIlEEBIII5IHfi5[3E[i;iilI[3EHS]!C:[l! " : ? ' 






ECaSECEtiriOElIBITtlESIDB'' : PR INT : PR I NT 




22 


GOSUB 500s PRINT "STATE (DON'T ABBR 






EVIATE) s INPUT B* 




23 


FOR 1=1 TO 7:READ TT* s M* ( I «20+l , I « 






20+20) =TT*5 ML ( I ) =LEN (TT«) s NEXT I : P 




RINT 




25 


PRINT "THE WINTER OF 1973-74 IS CA 






LLED 74, CHOICES ARE 74 TO 80" 


27 


PRINT : PRINT "STARTING YEAR";sINPU 






T YS: PRINT "LAST YEAR";: INPUT YEsP 






RINT 




30 


L=YE-YS+1 : PRINT "CHOICES OF INPUT 






ARE BY YEAR OR MONTH": PRINT 


\^ 


40 


PRINT "BY YEAR";: INPUT A*: IF A* ( 1 , 






1)<>"Y" THEN 100 




41 


PRINT :PRINT "UNITS OF FUEL CAN BE 






HNYIrilNo: : r IsHLLUNs, IsNH, LUr T , 






lOOCUFT" 




43 


PRINT "ALL FUEL ENTRIES MUST BE":? 






"IN THE SAME UNITS": GOSUB 500:PRI 






NT 




47 


FOR 1=1 TO L:PRINT "YEAR= ";INT(YS 






+ 1-1 ) 




48 


PRINT "FUEL USE FOR OCT 1 TO MAY 1 






";: INPUT T: F ( I ) =T: PRINT "COST (DOLL 
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ARS> 5 ! INPUT TsD(I)=T 
90 60SUB SOOsNEXT I s GOTO 200 
lOO FOR 1=1 TO LrGOSUB 500: PRINT "YEA 

R= ; INT < YS+I-1 ) : FOR J = l TO 7 
105 PRINT "FUEL USE FOR " ; M* < J »20+ 1 , J 

♦20+ML ( J) ) ; s INPUT F: PRINT "COST"; 

: INPUT D 

no F < I ) =F ( I ) +F: D ( I ) =D ( I ) +D: NEXT J s NE 
XT I 

200 PRINT "FUEL USE FOR JULY"! INPUT M 
I : 1 = 1 

220 READ ST*,TT*:CT*<I»20+1, I»20+20)= 

TT*! CTL ( I ) =LEN<TT*) 
225 FOR K»l TO 7:READ Tj H <K, I ) =T! NEXT 
K 

230 TRAP 2408 IF ST*»B« < 1 , LEN ( ST* ) ) TH 
EN I-I+l 

240 TRAP 40000s IF ST«="END" THEN 250 
245 GOTO 220 

250 J-I-1 : LL=YS-74+l s PRINT " 

<3 SPACES>STATE{14 SPACES>CITY" 
255 FOR 1=1 TO J 

260 PRINT Is" ";B*;:POKE 85,22s? CT* 

(1*20+1, It20+CTL (I) ) sNEXT I 
270 PRINT "CHOOSE # OF CITY"; s INPUT I 

SPRINT sGOSUB 500 
280 X=<F(1)-7»MI)/H(LL,I) s RATE ( 1 ) =D ( 1 

) /F(l) sH=INT(RATE<l) tlOO) /lOO 
282 PRINT "CHOSEN CITY= " ; CT* < I *20+l , 

I«20+CTL < I ) ) s PRINT "RATE (1ST YEAR 

) = " ; H 

285 ? s? "YEAR RATE FUEL SAV. * SAV 

INGS" 
295 FOR K=2 TO L 

300 H=H(LL+K-1, I ) *X+7«riI-F (K) sRATE(K) 

=D(K)/F(K) sC=H»RATE(K) 
312 H=INT(H«100) /100sRATE(K)=INT(RATE 

(K) tlOO) /100s C=INT (C* 100) /lOO 
320 PRINT " "; INT(YS+K-1) ; "€TAB> " ; RA 

TE(K) ; "<TAB>";H; "<TABJC3 SPACES> " 
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340 NEXT KsPRINT s GOSUB 500:PRINT "(+ 
= SAVINGS) (- = LOSS) "5 GOTO 255 

500 PRINT 

"s RETURN 

1999 DATA OCTOBER, NOVEMBER, DECEMBER, J 
ANUARY, FEBRUARY, MARCH, APRIL 



Program 5. Color Computer Version. 

I REM HEATING FUEL AUDIT 
10 REM 

II REM PROGRAM REQUIRES HEATING FUEL USE(ANNU 

AL OR BY MONTH) 

12 REM HEATING MONTHS ARE OCT 1 TO MAY 1^ 2 Y 

RS OR MORE REQUIRED 

13 REM OUTPUT IS FUEL SAVINGS, AND $ SAVINGS 
15 REM ************************* 

17 DEFFNTRC(E) =INT(E*100)/100 

20 PRINT" YEAR BY YEAR HEATING CONSERVATION AU 
DIT^iPRINTrPRINT 

22 GOSUB500:INPUT"STATE (DON'T ABBREVIATE) B 

$ 

23 F0RI=1T07:READM$ (I) :NEXT:PRINT 

25 PRINT"THE WINTER OF 1973-74 IS CALLED 74, ^ 

CHOICES ARE 74 TO 80" 
27 PRINT: INPUT"STARTING YEAR" ; YS : INPUT"LAST Y 

EAR"; YE: PRINT 
30 L=YE-YS+1:PRINT"CH0ICES OF INPUT ARE BY YE 

AR OR MONTH": PRINT 

40 INPUT"BY YEAR";A$:IFLEFT$ (A$,l) <>"Y"THEN10 



41 PRINT:PRINT"UNITS OF FUEL CAN BE ANYTHING: 

GALLONS, KWH, CUFT, 100CUFT" 
4 3 PRINT" ALL FUEL ENTRIES MUST BE THE SAME 

UNITS" :GOSUB500:PRINT 
47 F0RI=1T0L:PRINT"YEAR= " ; INT ( YS+I-1 ) 
4 8 PRINT" FUEL USE FOR OCT 1 TO MAY 1";:INPUTF 

(I) :INPUT"COST (DOLLARS) ";D(I) 
90 GOSUB500:NEXT:GOTO200 

100 FORI=1TOL:GOSUB500:PRINT"YEAR= ";INT(YS+I- 

1) :F0RJ=1T07 
105 PRINT"FUEL USE FOR " ; M$ ( J ) ; INPUTF : PRINT"CO 

ST FOR ";M$ (J) ; :INPUTD 
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110 F(I)=F(I)+F:D(I)=D(I)+D:NEXT:NEXT 

200 INPUT"FUEL USE FOR JULY"; MI: 1=1 

220 READST$,CT$(I) ,H(1,I) ,H(2,I) r H( 3 , 1) , H( 4 , 1) 

,H(5,I) rH(6,I) ,H(7,I) 
230 IFLEFT$ (ST$ ^ 7 ) =LEFT$ {B$ , 7 ) THENI=I+1 
240 IFST$="END"THEN250 
245 GOTO220 

250 J=I-l:LL=YS-74+l:PRINTTAB(3) ; "STATE C 

ITY" 
255 F0RI=1T0J 

260 PRINTI;" ";B$;" ";CT$(I):NEXT 

270 INPUT"CHOOSE # OF CITY" ; I : PRINT :GOSUB500 

280 X=(F(1)-7*MI)/H(LL,I) : RATE ( 1 ) =D ( 1 ) /F ( 1 ) : H= 

FNTRC(RATE(1) ) 
282 PRINT"CHOSEN CITY= " ; CT$ (I ) : PRINT"RATE ( 1ST 
YEAR) H 

285 PRINT:PRINT"YEAR RATE FUEL SAV. SAVINGS 

n 

295 F0RK=2T0L 

300 H=H(LL+K-1.I)*X+7*M.I-F{.KJ ; RATEiK) =D (K)yF (K 

) :C=H*RATE(K) 
312 H=FNTRC(H) : RATE (K) =FNTRC (RATE (K) ) : C=FNTRC ( 

C) 

320 PRINTINT(YS+K-1);" ";RATE(K);" ";H;" 
" • c 

340 NEXT:PRINT:GOSUB500:PRINT" (+ = SAVINGS) (- 

= LOSS) ":GOT0255 
500 PRINT" ":RET 

URN 

1999 DATAOCTOBER ^NOVEMBER , DECEMBER , JANUARY r FEBR 
UARY, MARCH, APRIL 



Program 6. TI-99 Version* 

I REM heating fuel audit, TI version 

II REM program requires heating -fuel 

use (annual or by month) 

12 REM heating months are oct 1 to m 
ay 1, 2 yrs or more required 

13 REM output is fuel savings, and * 
savings<:6 SPACES> 

15 REM ttttttttttttttttttt 
17 CALL CLEAR 
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18 CALL SCREEN(9) 

19 DEF TRC<E)=INT<E*100> /lOO 

20 PRINT "year by year heating audit" 

• ■ • « a • 

22 GOSUB 500 

23 INPUT "state <don't abbreviate)? " 
: B« 

24 FOR 1=1 TO 7 

25 READ M«<I) 
27 NEXT I 

29 PRINT 

31 PRINT "the winter of 1973-74 is 

€4 SPACES>called 74, choices are 7 
4 toSO ": s 

35 INPUT "starting year? " : YS 

37 INPUT "last year? " : YE 

39 PRINT 

41 L=YE-YS+1 

42 PRINT "units of fuel can be 

{.3 SPACES>anything: gallon, kwh, c 
uf t , lOO cuf t" 

43 PRINT "all furel entries must be th 
esame units": : : : 

44 PRINT "choices of input are by yea 
ror month": : 

47 INPUT "by year (y or n)? " : A« 

49 IF (ASC < A*) 089) * (ASC <A*) 0121 ) THE 

N 100 
51 PRINT 
57 GOSUB 500 
59 PRINT 
61 FOR 1=1 TO L 

63 PRINT "year= " ; I NT ( YS+ I - 1 ) 
65 PRINT "fuel use for oct 1 to may 1 
" f 

67 INPUT F(I) 

69 INPUT "cost (dollars)? ":D<I) 
90 GOSUB 500 
94 NEXT I 
96 GOTO 150 

100 FOR 1=1 TO L 

101 GOSUB 500 
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102 PRINT "year = " ; I NT ( YS^ I - 1 ) ^ 

104 FOR J=l TO 7 ^ 

105 PRINT "fuel use for ";M*<J); 

107 INPUT FF ^ 

ICS PRINT "cost for "5M*(J); 

109 INPUT DD 

no F ( I ) =F < I ) -i-FF ^ 

112 D < I ) =D < I ) +DD 

114 NEXT J 

116 NEXT I ^ 

150 CALL CLEAR ^ 

200 INPUT "fuel use for july? "sMI 

201 CALL CLEAR ^ 

202 1=1 

220 READ STtli,CTi|i<I) ,H(1, I> ,H<2, I) ,H<3 

,I),H<4,I),H(5,I),H(6,I),H<7,I> w 

230 IF SEG*<ST1i, l,7)<>SEGtli<B*, 1,7)THE ^ 
N 240 

235 1 = 1 + 1 

240 IF ST*="end" THEN 250 ^ 

245 GO TO 220 

250 J=I-1 

251 LL=YS-74-H ^ 

252 PRINT TAB<5) ; "state";TAB<15) 5 "cit 

y «• 

255 FOR 1=1 TO J ^ 
260 PRINT I;TAB<5) ;B*;TAB(15> ;CT«(I) 
265 NEXT I ^ 
270 INPUT "choose # of city ":I ^ 
272 CALL CLEAR 

274 GOSUB 500 ^ 

280 X=<F(1)-7«MI) /H<LL, I) ^ 

281 RATE < 1 ) =D ( 1 ) /F ( 1 ) 

282 YY=TRC (RATE < 1 ) ) ^ 

283 PRINT "chosen city= " ; CT* < I ) 

284 PRINT "rate <lst year ) = ";YY! : 

290 PRINT "year "; TAB (6) ; "rate" ; TAB ( 13 w 

); "fuel "; TAB <21 ); "savi ngs" 
292 PRINT TAB<12> s "savings";TAB<20) ; " 

(dollars)" ^ 
295 FOR K=2 TO L 

300 HH=H(LL+K-1, I)«X+7«MI-F<K> ^ 



302 RATE (K) =D (K) /F <K) 

304 C=HH«RATE(K) 

312 HH=TRC<HH> 

314 RATE <K) =TRC (RATE (K> ) 

316 C=TRC(C) 

320 PRINT INT (YS+K-1 ) ; TAB (5) ; RATE <K) ; 

TAB ( 12) ; HH; TAB <21 > ; C 
340 NEXT K 
342 PRINT 
344 GOSUB 500 

346 PRINT " (+ = savings) <- = loss)" 
348 GOTO 255 

500 PRINT " 

502 RETURN 

1999 DATA October , november , dec ember , j 
anuary,february, march , apr i 1 



Program 7« Heating Audit DATA Statements^ 

2000 DATATEXAS, BROWNSVILLE, 418, 520, 518, 974, 8 00, 
728,640 

2010 DATATEXAS,AMARILLO, 3389, 4163, 3484, 4515, 408 
4,4540,4219 

2020 DATATEXAS,FORT WORTH, 1854 , 2281 , 1841 , 2967 , 2 
941,2730,2375 

2030 DATATEXAS, HOUSTON, 1157, 1190, 1309, 2276, 210 3 
,1711,1545 

2 032 DATAALABAMA,BIRMINGHAM,2138, 2570,2527, 3488 
,3295,2777,2766 

2 034 DATAALABAMA, MOBILE, 1037, 1365, 1393, 2400, 220 
6,1617,1608 

2036 DATAALABAMA, MONTGOMERY ,1643,1967 , 2119 , 3038 

,2403,1987,2028 
2 038 DATAARI ZONA, FLAGSTAFF, 6 08 0,6740, 6 158, 6 032, 

4882,6813,6100 
2040 DATAARIZONA, PHOENIX, 1093, 1558, 1089, 1071, 69 

2,1428,1022 

2 042 DATAARIZONA, TUCSON, 1652, 218 3, 1453, 1644, 119 
4,1840,1349 

2 044 DATAARKANSAS , LITTLEROCK , 2645 , 3059 , 2763 , 359 

,3723,3528,3142 
2046 DATACALIFORNIA,LOSANGELES, 1232, 1305, 1160, 9 
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69,705,1452,808 
2 048 DATACALIFORNIA,SANFRANCISCO,27 52,2918,2929 

,2594,1972,2774,2116 
2050 DATACOLORADO, DENVER, 5569, 5826, 5 117, 5258, 48 

82,5937,5333 
2 052 DATACONNECTICUTT, HARTFORD, 5540, 5890 ,5349,6 

164,5711,6286,5569 
20 54 DATADELAWARE, WILMINGTON, 3910, 4676, 4 177, 520 

6 ,4980,4883,4364 
2056 DATAFLORIDA, JACKSONVILLE, 9 33, 1168, 1390, 206 

1 ,1791,1525,1406 
2058 DATAFLORIDA, MIAMI, 131, 59, 202, 311, 331, 185, 2 

04 

2060 DATAFLORIDA, TALLAHASSEE, 1106, 1547, 1594, 219 

9,2166,1746,1692 
2062 DATAGEORGIA, ATLANTA, 2305, 2873, 2697, 3834, 32 

98,2757,2737 
2064 DATAGEORGIA, SAVANNAH, 1274, 1537, 1735, 2527, 2 

253,1751,1881 
2066 DATAIDAHO, BOISE, 4977, 5318, 5376, 5715, 4287, 5 

984,4792 

2068 DATAIDAHO, POCATELLO, 6387, 6713, 6252, 6474, 51 

03,7109,5839 
2 070 DATAILLINOIS, CHICAGO, 5634, 6039, 5135, 6613, 6 

322,6686,5537 
2072 DATAILLINOIS, SPRINGFIELD, 4998, 5433, 4693, 61 

57,6057,6075,5308 
2 074 DATAINDIANA,EVANSVILLE, 3873, 4424, 3960, 5236 

,5113,4979,4676 
2076 DATAINDIANA,FORTWAYNE, 5660, 6093, 5198, 6723, 

6472,6271,6046 
2 078 DATAINDIANA, INDIANAPOLIS, 4698, 5477, 4762, 6 2 

60,5698,5748,5484 
2 080 DATAIOWA,DESMOINES, 5908, 6468, 5268, 6418, 660 

6,7041,5827 

2 082 DATAIOWA,SIOUXCITY, 6120, 6924, 5946, 6961, 7 02 
0,7912,6263 

2084 DATAKANSAS,TOPEKA, 487 3, 5225, 4408, 5455, 5556 
,6023,5045 

2086 DATAKANSAS, WICHITA, 4540, 4820, 4035, 4702, 485 
5,5310,4620 

2088 DATAKENTUCKY, LOUISVILLE, 3697, 4289, 3694, 501 

6,4896,4583,4392 
2090 DATALOUISIANA,BATONROUGE, 1050, 1458, 1548, 21 

33,1996,1744,1762 
2092 DATALOUISIANA,NEWORLEANS,9 31,1295,1430,205 
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^^^^ 



7,1860,1453,1447 

2094 DATAMAINE, CARIBOU, 8980, 9024, 8947, 9140, 8 152 
,8638,7860 

2 096 DATAMAINE, PORTLAND, 6472, 6747, 6709, 7492, 660 
0,7040,6427 

2098 DATAMARYLAND, BALTIMORE, 4241, 4264, 3857, 4940 

,4542,4508,4271 
2100 DAT AMASS AC HUS ETTS , BOSTON ,4998,5230,4620,54 

92,4963,5425,5017 

2102 DATAMICHIGAN, DETROIT, 5923, 6375, 5583, 6754, 6 
408,6538,6088 

2104 DATAMICHIGAN, GRANDRAPIDS, 6338, 6987, 5933, 71 
67,6605,6944,5898 

2106 DATAMICHIGAN, SAULST, MARIE, 8576, 8602, 8079, 9 
047,8245,8848,8021 

2108 DATAMINNESOTA,DULUTH,9292,9435,8662,9310,8 
657,9577,8351 

2110 DATAMINNESOTA, INT, FALLS, 9844, 9755, 9435, 100 

44,9858,10745,9442 
2112 DATAMINNESOTA, MINNEAPOLIS, 7 560, 7969, 6785, 7 

800,7789,8132,7140 
2114 DATAMISSISSIPPI, JACKSON, 1746, 2066, 2058, 296 

1,2881,2451,2568 

2116 DATAMISSOURI,KANSASCITY, 4775, 5407, 4401, 555 
0,5671,5811,5106 

2118 DATAMISSOURI, ST. LOUIS, 4507, 5001, 4 173, 5466, 
5410,5368,4574 

2120 DATAMISSOURI, SPRINGFIELD, 3982, 4659, 3837, 50 
33,4973,5116,4140 

2122 DATAMONTANA, BILLINGS, 6294, 7106, 6118, 6076, 7 
068,7878,5814 

2124 DATAMONTANA, GREATFALLS, 6810, 7 48 2, 6 503, 6006 
,7606,8138,6164 

2126 DATAMONTANA, MISSOULA, 6797, 7 104, 6668, 6896, 6 
423,8068,6439 

2128 DATANEBRASKA, LINCOLN, 6067, 6 504, 5302, 6 13 1,6 
484,6881,5562 

2130 DATANEBRASKA, OMAHA, 6069, 6 316, 5037, 6 045, 6 14 
0,6391,5954 

2132 D AT ANEV AD A, LAS VEGAS, 24 18 , 2610 , 2298 , 2150 , 16 
64,2517,2147 

2134 DATANEVADA, RENO, 5184, 5820, 5548, 5196, 4228, 5 
679,4625 

2136 DATANEW HAMPSHIRE , CONCORD ,6924 ,7304 ,7 194 ,7 

732,7094,7229,6479 
2138 DATANEW JERSEY , TRENTON ,4373 , 4763 , 4172 , 5355 
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,5056,4818,4595 
2140 DATANEW MEXICO, ALBUQUERQUE ,4206 , 4707 , 4328 , 

4761,3543,4020,3735 
2142 DATANEW MEXICO, ROSWELL , 3015 , 3660 , 2771 , 3469 

,2712,3585,3297 
2144 DATAMEW YORK, ALBANY, 6539, 6835^5999, 6989, 63 

15,6806,6023 
2146 DATANEW YORK ,NEWYORK , 4333 , 4643 ,4131 , 5195 , 4 

804,4950,4434 

2148 DATANEW YORK , SYRACUSE ,6241 ,6439 , 5917 , 6806 , 
6234,6573,5895 

2149 DATANORTH CAROLINA, ASHEVILLE , 3375 , 3947 , 384 
3,4755,4281,3882,3793 

2150 DATANORTH CAROLINA, RALEIGH, 2758 , 3550 , 2895 , 
4258,3801,3286,3464 

2154 DATANORTH CAROLINA, WILMNGTN , 1683 , 2249 , 1908 

,2849,2658,2256,2464 
2156 DATANORTH DAKOTA, FARGO, 9171 ,8502 ,7937 ,8893 

,9012,9915,8402 
2158 DATANORTH DAKOTA, WILLISTON ,8714 ,8616 ,8081 , 

8192,8867,9784,7787 
2160 DATAOHIO, COLUMBUS, 4701, 5314, 4860, 6494, 5860 

,5653,5253 

2162 DATAOHIO, TOLEDO, 5996, 6243, 5674, 7 093, 6673, 6 
520,5992 

2164 DATAOKLAHOMA,OKLACITY , 3278 , 3762 , 2950 , 3835 , 

3977,4142,3543 
2166 DATAOREGON, BURNS, 6395, 6587, 6880, 6102, 5711, 

7093,5830 

2168 DATAOREGON , PORTLAND, 4070 , 3993 , 3992,4057 , 37 

15,4577,3690 
2170 DATAPENNSYLVANIA,HARRISBURG, 4509, 5199, 4498 

,5437,5059,4915,4422 
2172 DATAPENNSYLVANIA, PITTSBURG, 5005, 5516, 5105, 

6822,5636,5964,5536 
2174 DATAPENNSYLVANIA, SCRANTON, 5950, 569 1,5251, 6 

642,5963,6348,5417 
2176 DATARHODE ISLAND, PROVIDENCE , 5184 , 5531 , 5172 

,6035,5497,5867,5029 
2178 DATASOUTH CAROLINA, CHARLESTON , 1393 , 1941 , 18 

37,2702,2340,1972,2195 
2180 DATASOUTH CAROLINA, GREENVILLE , 2730 , 3199 , 29 

20,3851,3392,3122,3166 
2182 DATASOUTH DAKOTA, RAPIDCITY ,6477 ,7045 ,6111 , 

6622,6923,7626,6050 
2184 DATASOUTH DAKOTA, SIOUXFALLS ,7088 ,7598 ,6685 
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,7484,7822,8393,6799 
2186 DATATENNESSEE , CHATTANOOGA, 2898 , 3694 ,3313,4 

113,3729,3349,3483 
2188 DATATENNESSEE, KNOXVILLE, 28 33, 34 18, 3340, 4 14 

8,3822,3520,3467 

2190 DATATENNESSEE, MEMPHIS, 2500, 2878, 2526, 3442, 

3355,3205,3013 
2192 DATAUTAH,SALTLAKECITY, 5402, 5495, 5392, 5370, 

3982,5526,4722 

2194 DATAVERMONT, BURLINGTON, 7276, 7 306, 6945, 7726 
,7257,7623,6615 

2196 DATAVIRGINIA, NORFOLK, 2674, 3210, 2827, 3817, 3 
478,3432,3358 

2198 DATAVIRGINIA, RICHMOND, 3265, 3944, 3232, 4389, 
4033,3861,3532 

2 200 DATAWASHINGTON, SEATTLE, 4369, 4537, 4200, 3699 

,3650,4414,3995 
2 202 DATAWASHINGTON, SPOKANE, 6 171, 6613, 6 104, 5978 

,5826,7368,5650 
2204 DATAWEST VIRGINIA, CHRLSTON , 3807 , 4813 , 3832 , 

5487,4896,4534,4526 
2 206 DATAWISCONSIN,GREENBAY, 7 324, 7794, 7079, 8319 

,7616,8227,7040 

2208 DATAWYOMING, CHEYENNE, 6561, 7 106, 6274, 6540, 6 
100,6851,6179 

2210 DATAWYOMING, LANDER, 7122, 7482, 7058, 6961, 644 

5,8528,6891 
2990 DATAEND, END, 0,0, 0,0, 0,0,0 
2995 END 
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Pro3ram9. VIC Version* 

I REM COOLING FUEL AUDIT VIC VERSION 

II REM PROGRAM REQUIRES COOLING FUEL USE (ANN 

UAL OR BY MONTH) " 

12 REM COOLING MONTHS ARE APRIL 1 TO NOV 1, 2 

YRS OR MORE REQUIRED 

13 REM OUTPUT IS FUEL SAVINGS, AND $ SAVINGS 
17 DEFFNTRC(E) =INT(E*100)/100 

21 PRINT" {CLEAR} COOLING FUEL AUDIT{ DOWN} " 

22 PRINT"STATE (DON'T ": INPUT" ABBREVIATE) "; B$ 

23 F0RI=1T07:READM$ (I) :NEXT:PRINT 

25 PRINT"THE SUMMER OF 1974 IS CALLED 74, CHO 

ICES ARE74 TO 80" 
27 PRINT: INPUT"STARTING YEAR" ; YS : PRINT : INPUT" 

LAST YEAR"; YE: PRINT 
30 L=YE-YS+1:PRINT"CH0ICES OF INPUT ARE BY Y 

EAR OR MONTH" 

40 INPUT"BY YEAR (Y OR N) " ; A$ : IFASC (A$ ) 089TH 

EN100 

41 PRINT" {CLEAR}UNITS OF FUEL CAN BE ANYTHIN 

G: GALLONS, KWH, CUFT, 100 CUFT" 
4 3 PRINT" ALL FUEL ENTRIES MUST BE THE SAME UN 
ITS" :GOSUB500: PRINT 

47 F0RI=1T0L:PRINT"YEAR= " ; INT ( YS+I-1 ) 

48 PRINT"FUEL USE FOR APR 1 TO" : INPUT"NOV 1"; 

F(I) : INPUT"COST(DOLLARS) ";D(I) 
90 GOSUB500:NEXT:GOTO200 

100 FORI=1TOL:GOSUB500:PRINT"YEAR = ";INT(YS+I 

-1) : F0RJ=1T07 
105 PRINT"FUEL USE FOR " ; M$ (J) ; : INPUTF: PRINT"C 

OST FOR ";M$ (J) ; :INPUTD 
110 F ( I ) =F ( I ) +F : D ( I ) =D ( I ) +D : NEXT : NEXT 
200 PRINT"FUEL USE FOR" : INPUT" JANUARY" ; MI : 1=1 

220 READST$,CT$(I) , H( 1 , 1 ) , H( 2 , 1 ) , H ( 3 , 1 ) , H( 4 , 1) 

,H(5,I) ,H(6,I) ,H(7,I) 
230 IFLEFT$ (ST$ , 7 ) =LEFT$ (B$ , 7 ) THENI=I+1 
240 IFST$="END"THEN250 
245 GOTO220 

250 PRINT" {CLEAR} ":J=I-l:LL=YS-74+l:PRINT" S 

TATE"; TAB (12) ; "CITY{D0WN} " 
255 F0RI=1T0J 

260 PRINTI;B$;TAB(10) ; CT$ (I) :NEXT 

270 PRINT" {DOWN} ":INPUT"CH00SE # OF CITY";I:PR 
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INT:GOSUB500 
280 X=(F(1)-7*MI)/H(LL,I) : RATE ( 1 ) =D ( 1 ) /F ( 1 ) : H= 

FNTRC(RATE(1) ) 
282 PRINT" {CLEAR}CHOSEN CITY= "; CT$ (I ): PRINTER 

ATE (1ST YR)= ";H 
285 PRINT" {DOWN}YEAR RATE FUEL SAVED" 
290 PRINT" SAVED ($) " 

295 FORK— 2T0L 

300 H=H(LL+K-1,I) *X+7*MI-F(K) :RATE(K)=D(K)/F(K 

) :C=H*RATE(K) 
312 H=FNTRC(H) : RATE (K) =FNTRC (RATE (K) ) :C=FNTRC( 

C) 

320 PRINTINT(YS+K-1) ;TAB(4) ;RATE(K) ;TAB(9) ; INT 

(H) ;TAB(15) ;C 
340 NEXT:PRINT:GOSUB500:PRINT- (+ = SAVINGS,- = 
LOSS) ":GOT0255 

500 PRINT" ": RETURN 

1999 DATAAPRIL, MAY, JUNE, JULY, AUG, SEPT, OCT 



Program 1 0« Microsoft Version* 

I REM COOLING FUEL AUDIT (ADD DATA LINES 2000 

UP.) 

II REM PROGRAM REQUIRES COOLING FUEL USE (ANN 

UAL OR BY MONTH) " 

12 REM COOLING MONTHS ARE APRIL 1 TO NOV 1, 2 

YRS OR MORE REQUIRED 

13 REM OUTPUT IS FUEL SAVINGS, AND $ SAVINGS 
17 DEFFNTRC(E) =INT(E*100)/100 

20 PRINT"YEAR BY YEAR COOLING CONSERVATION AU 

DIT{02 DOWN}" 

21 PRINT" {CLEAR} ";TAB (9) ; "COOLING FUEL AUDIT{ 

DOWN}" 

22 INPUT"STATE (DON'T ABBREVIATE) "; B$ 

23 F0RI=1T07:READM$ (I) : NEXT: PRINT 

25 PRINT"THE SUMMER OF 1974 IS CALLED 74, 

CHOICES ARE74 TO 80" 
27 PRINT: INPUT"STARTING YEAR" ; YS : PRINT : INPUT" 

LAST YEAR"; YE: PRINT 
30 L=YE-YS+1:PRINT"CH0ICES OF INPUT ARE BY Y 

EAR OR MONTH" 
40 INPUT"BY YEAR (Y OR N) " ; A$ : IFASC ( A$ ) 089TH 

ENIOO 



41 PRINT" {CLEAR}UNITS OF FUEL CAN BE ANYTHIN w 

G: GALLONS, KWH, CUFT, 100 CUFT" 
43 PRINT"ALL FUEL ENTRIES MUST BE THE SAME UN 

ITS" :GOSUB500 2PRINT W 

47 F0RI=1T0L:PRINT"YEAR= " ? INT ( YS+I-1) 

48 INPUT"FUEL USE FOR APR 1 TO NOV 1";F(I):IN ^ 

PUT"COST (DOLLARS) ";D(I) ^ 
90 GOSUB500:NEXT:GOTO200 

100 FORI=1TOL:GOSUB500:PRINT"YEAR = ";INT(YS+I w 

-1) :F0RJ=1T07 
105 PRINT"FUEL USE FOR " ; M$ ( J ) ; : INPUTF : PRINT"C 

OST FOR ";M$ (J) ; iINPUTD 
110 F ( I ) =F ( I ) +F : D ( I ) =D ( I ) +D : NEXT : NEXT 
200 INPUT"FUEL USE FOR JANUARY" ;MI : 1 = 1 : PRINT" { 

CLEAR}"; TAB (17) ; "WAIT" 
220 READST$,CT$(I) ,H(1,I),H(2,I),H(3,I),H(4,I) 

,H(5,I) ,H(6,I) ,H(7,I) W 
230 IFLEFT$ (ST$ , 7 ) =LEFT$ (B$ , 7 ) THENI =1+1 

240 IFST$="END"THEN250 ^ 
245 GOTO220 

250 PRINT" {CLEAR} ": J= I -l:LL=YS-74+l: PRINT" 

STATE" ;TAB (21) ; "CITY {DOWN} " w 
255 F0RI=1T0J 

260 PRINTI;TAB(9) ;B$;TAB(20) ;CT$ (I) :NEXT ^ 
270 PRINT" {DOWN} ": INPUT"CHOOSE # OF CITY";I:PR ' ^ 

INT 

280 X=(F(1)-7*MI)/H(LL,I) 2RATE(1)=D(1)/F(1) :H= ^ 
FNTRC(RATE(1) ) 

282 PRINT" {CLEAR} ";TAB (9) ; "CHOSEN CITY= ";CT$( ^ 
I) :PRINTTAB(9) ;"RATE(1ST YR) = ";H ^ 

285 PRINT" {DOWN} YEAR RATE FUEL 

SAVED" 

290 PRINT" SAVED ($)" ^ 

295 F0RK=2T0L 

300 H=H(LL+K-1,I)*X+7*MI-F(K) :RATE(K)=D(K)/F(K 
) :C=H*RATE(K) 

312 H=FNTRC(H) -.RATE (K)=FNTRC (RATE (K) ) :C=FNTRC( w 

320 PRINTINT(YS+K-1) ;TAB(7) ;RATE(K) ; TAB (18) ; IN 

T(H) ?TAB(29) ;C ^ 
340 NEXT:PRINT:GOSUB5002PRINT" (+ = SAVINGS,- = 
LOSS) ":GOT0255 

500 PRINT" ^ 

~" : RETURN 

1999 DATAAPRIL^MAY, JUNE, JULY, AUG, SEPT, OCT ^ 
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Prosram 1 1 . Atari Version. 




1 REM COOLING FUEL AUDIT (ATARI VERSI 




ON) 


5 DIM ML (7) , CTL (20) , F (20) , D (20) , RATE < 


I . 


20) , H (7, 20) 




10 


DIM T* (20) , B« (20) , M* (8*20) , A* (20) , 






ST« (20) , CT* (20«20) , TT« (20) 




1 1 


REM PROGRAM REQUIRES COOLING FUEL 






USE (ANNUAL OR BY MONTH) 


12 


REM COOLING MONTHS ARE APRIL 1 TO 






NOV 1, 2 YRS OR MORE REQUIRED 




13 


REM OUTPUT IS FUEL SAVINGS, AND « 






SAVINGS 




15 


REM ««««»««*«««««««««««»««««« 




17 


GRAPHICS 


20 


PR I NT niaEE»o-iis»fi5fiti:[i;BEE£i:[ir«c:.ci! s ? 






■SECatlEEiTiillECBEIXraonB" : PR I NT 






: PRINT 




22 


GOSUB 500: PRINT "STATE (DON'T ABBR 






EVIATE) " J : INPUT B* 




23 


FOR 1=1 TO 7:READ TT* : M* ( I «20+ 1 , I t 






20+20)=TT«:ML(I)=LEN(TT«) :NEXT I:P 






RINT 




25 


PRINT "THE SUMMER OF 1974 IS CALLE 




D 74, "s? "CHOICES ARE 74 TO SO" 




27 


PRINT SPRINT "STARTING YEAR";iINPU 






T YSsPRINT "LAST YEAR";: INPUT YE:P 




RINT 




30 


L=YE-YS+ 1 : PR I NT "CHOICES OF INPUT 






ARE BY YEAR OR MONTH": PRINT 


40 


PRINT "BY YEAR"?: INPUT A*: IF A* ( 1 , 






1)<>"Y" THEN 100 




41 


PRINT : PRINT "UNITS OF FUEL CAN BE 




ANYTHING:":? "GALLONS, KWH, CUFT, 






lOOCUFT" 




43 


PRINT "ALL FUEL ENTRIES MUST BE":? 




"IN THE SAME UNITS": GOSUB 500: PRI 






NT 




47 


FOR 1=1 TO L:PRINT "YEAR= ";INT(YS 






+ 1-1 ) 


Niii^ 


48 


PRINT "FUEL USE FOR APR 1 TO NOV 1 
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";s INPUT Ts F ( I ) =T: PRINT "COST (DOLL w 

ARS) ••; s INPUT T:D<I)=T ^ 
90 GOSUB 500:NEXT I : GOTO 200 

lOO FOR I»l TO LsGOSUB SOOiPRINT "YEA ^ 

R= " ; INT <YS+I-1 ) s FOR J=l TO 7 ^ 

105 PRINT "FUEL USE FOR " ; M* < J »20+ 1 , J 

»20+ML <J) INPUT F:PRINT "COST"; ^ 

: INPUT D ^ 

110 F (I ) =F ( I ) +F: D ( I ) =D < I ) +D: NEXT J s NE 

200 PRINT "FUEL USE FOR J ANUARY " : I NPU ^ 
T MI : 1=1 

220 READ ST*, TT«: CT* < I »20+l , I «20+20) = 

TT*sCTL(I)=LEN(TT*) ^ 
225 FOR K=l TO 7:READ Ts H <K, I ) =T: NEXT 

230 TRAP 240: IF ST*=B* < 1 , LEN ( ST« ) ) TH ^ 
EN 1=1+1 

240 TRAP 40000: IF ST*="END" THEN 250 ^ 
245 GOTO 220 ^ 
250 J=I-l:LL=YS-74+l:PRINT " 

€3 SPACES>STATE<:14 SPACES>CITY" ^ 
255 FOR 1=1 TO J ^ 
260 PRINT I;" ";B«;:POKE 85,22:7 CT* 

< I »20+l , I«20+CTL < I ) ) : NEXT I 
270 PRINT "CHOOSE # OF CITY";: INPUT I ^ 

: PRINT : GOSUB 500 
280 X= (F < 1 ) -7»MI ) /H <LL, I ) : RATE ( 1 ) =D ( 1 

) /F(l) :H=INT<RATE<1) *100) /lOO ^ 
282 PRINT "CHOSEN CITY= " ; CT* ( I *20+ 1 , 

It20+CTL<I) ): PRINT "RATE < 1ST YEAR 

\ . IB « 14 

285 ? :? "YEAR RATE FUEL SAV. * SAV 
INGS" 

295 FOR K=2 TO L ^ 
300 H=H (LL+K-1 , I ) »X + 7«MI-F <K) : RATE <K) 

=D <K) /F (K) : C=H«RATE <K) 
312 H=INT(H«100) /100:RATE(K)=INT(RATE w 

<K) »100) /lOO: C=INT <C*100) /lOO 
320 PRINT " " ; INT (YS+K-1 ) ; " ^TABJ " ; RA ^ 

TE(K) ; "<TAB>";H; "{TABjt3 SPACES> " ^ 

SC 
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340 NEXT KsPRINT s 60SUB 500:PRINT "<+ 
= SAVINGS) (- = LOSS)": GOTO 255 

500 PRINT " 

RETURN 

1999 DATA APR I L , MAY , JUNE , JUL Y , AUGUST , 
SEPTEMBER, OCTOBER 



Program 12. Color Computer Version. 

I REM COOLING FUEL AUDIT 
10 REM 

II REM PROGRAM REQUIRED COOLING FUEL USE (ANN 

UAL OR BY MONTH) 

12 REM COOLING MONTHS ARE APRIL 1 TO NOV 1, 2 

YRS OR MORE RE(?UIRED 

13 REM OUTPUT IS FUEL SAVINGS^ AND $ SAVINGS 
15 REM ************************ 

17 DEFFNTRC(E) =INT(E*100)/100 

18 CLS 

20 PRINTTAB(6) ;"YEAR BY YEAR COOLING" : PRINTTA 
B(7) "CONSERVATION AUDIT" : PRINT : PRINT 

22 GOSUB500:INPUT"STATE (DON'T ABBREVIATE) "; B 

$ 

23 F0RI=1T07 2READM$ (I) :NEXTsPRINT 

25 PRINT"THE SUMMER OF 1974 IS CALLED 74, CHOI 

CES ARE 74 TO 80" 
27 PRINT: INPUT"STARTING YEAR" ; YS : INPUT" LAST Y 

EAR"; YE: PRINT 
30 L=YE-YS+1:PRINT"CH0ICES OF INPUT ARE BY YE 

AR OR MONTH": PRINT 

40 INPUT"BY YEAR (Y OR N) " ; A$ : IFASC (A$ ) 089TH 

EN100 

41 PRINT: PRINT"UNITS OF FUEL CAN BE ANYTHING: 

GALLONS, KWH, CUFT, 100 CUFT" 
43 PRINT"ALL FUEL ENTRIES MUST BE THE SAME 
UNITS" :GOSUB500: PRINT 

47 FORI=1TOL:GOSUB500:PRINT"YEAR =";INT(YS+I- 

1) 

48 PRINT"FUEL USE FOR APR 1 TO NOV 1";:INPUTF 

(I) :INPUT"COST (DOLLARS) ";D(I) 
90 GOSUB500:NEXT:GOTO200 

100 FORI=1TOL:GOSUB500:PRINT"YEAR =";INT(YS+I- 



141 



1) : F0RJ=1T07 
105 PRINT"FUEL USE FOR " ; M$ { J ) ; : INPUTF : PRINT"C 

OST FOR ";M$ (J) ; :INPUTD 
110 F(I)=F(I)4-F:D(I)=D(I)+D: N EXT : N EXT 
200 INPUT" FUEL USE FOR JANUARY" ; MI : 1=1 
220 READST$,CT$(I) , H ( 1 , I ) , H ( 2 , I ) , H ( 3 , I ) , H ( 4 , I ) 

,H(5,I) ,H(6,I)M,H(7,I) 
2 30 IFLEFT$ (ST$ , 7 ) =LEFT$ (B$ , 7 ) T HENI=I+1 
240 IFST$="END"THEN250 
245 GOTO220 

250 J = I-l:LL=YS-744-l:PRINT" STATE CITY 
II 

255 F0RI=1T0J 

260 PRINTI;" " ; B$ ; " " ; CT$ (I ) : NEXT 

270 INPUT"CHOOSE # OF CITY" ; I : PRINT : GOSUB500 

2 80 X=(F(1)-7*MI)/H(LL,I) : RATE ( 1 ) =D ( 1 ) /F ( 1 ) : H= 

FNTRC(RATE(1) ) 
282 PRINT"CHOSEN CITY= " ; CT$ (I ) : PR! MT"RATE ( 1ST 
YEAR) ="; H 

285 PRINT: PRINT"YEAR RATE FUEL SAV. SAVING (DOL 
) " 

295 F0RK=2T0L 

3 00 H=H(LL+K-1,I) *X+7*MI-F(K) : RATE (K) =D (K) /F (K 

) :C=H*RATE(K) 
312 H=FNTRC(H) : RATE (K) =FNTRC (RATE ( K ) ) :C=FNTRC( 
C) 

320 PRINTINT(YS+K-1) ;" ";RATE(K);" ";H;" ";C 
340 NEXT:PRINT:GOSUB500:PRINT" (+ = SAVINGS) (- 

= LOSS) ":GOT0255 
500 PRINT" ":RET 

URN 

1999 DATAAPRIL, MAY, JUNE, JULY, AUGUST, SEPTEMBER, 
CTOBER 



Program 13. TI-99 Version. 

I REM cooling fuel audit, TI version 

II REM program requires cooling fuel 
use (annual or by month) 

12 REM cooling months are april 1 to 
nov 1, 2 yrs or more required 

13 REM output is fuel savings, and * 
savi ngs 
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/' 






( 




















17 
1 


CALL CLEAR 

l_r M l_ L_ OI-rrMZLClrH \ XO/ 






nPF TRPfF>=TWT<F*100>/ir>ri 
X/ ir\i-r\c-/"~'XiMi vc-^xv' V,' / / i v.* v.* 




20 


PRINT "year by year cooling audit" 






r; n 1 1 R ri n 


(" 




TWPIIT "•="l-^"*-o fHi-in'-h ^hhr-c»\/iJ4-|-«a>'3> " 
XiMiwI S'X.calt.cr \tJl-rll i_ <3llJIJrtrVXoll.1=r/ 




• R^ 




PTIR T = 1 Tn 7 
r Ljr\ X — X 1 u / 




^ vJ 


r\Cl-IX/ IIV \ X / 


X- / 


MP" Y T T 
i M Cl A 1 X 




OQ 
X- / 


PR T WT 




O X 


iIaXiMI i_.rie ^LXflllll^r UT X7^/*t X» t— cIXXc 




H7A f-Hi-k-ir-ckc: zav o 7A 4-f-> fl^"! • 
U/'Ty ^lll_IXl-lifs cirirr /'r Ox.' ■ m 






xiMiui 9L.cirv.xii^ ycfoir aio 




37 


INPUT "last year? " : YE 

PR T WT 


w 


A 1 

*T X 


1 =YP — VCl-»-1 






PRINT "itni-|-c= o-f -fiif:^! i-An Hia 




X U W 1 l~f i_r CL. i^^Olllyi.llXll^a V|ClXXt-liiy fx W i i « V- 










43 


PRINT "all fuel entries must be th 

la c 2 m c* 1 1 f~k •> ^ r— » " • t> 
cr a> cl ill cr l.lliXi-!=> ■ m ■ ■ 




44 


P R T W T " f~ h f~k "i r~ o c n 4- "ir^nii*^ zap~ia l^v/ v/ckZk 
i^i\xiNi i»ii%_rJLi_cr=:> t-r i a.ii|juii. ciicr '-'X jrcrcai 






1^ 4~> H~ m #"> n 4- }-> *' » • 
r w r III \j 1 1 i_ 1 1 ■ m 




A7 


XIMriull ytrdr "/ 11/: •M^P 


w 




xn \Mot-*\MVySxO//*\Moi_r\MV/s.-^Xjt-X / iric 






w 1 An 




<vJ X 


PR T WT 




vJ / 


n Q 1 1 R ri ri 

13 LJ «3 Li JD «J V.' v.' 




=5Q 
»J / 


PR T WT 




A 1 

O X 


PflR T = 1 Tfl 1 






PRTWT ">/i3ap-= "-TWT^Y^n+T — 1> 
t r\ X IM 1 ytsrctr~ j|XiMi\iij"X x/ 




65 


PRINT "fuel use -for apr 1 to nov 1 






INPUT P<I) 






TWPIIT "i-i-kci-l- {Hnll-ar-«=;^':> "-r^fT^ 




OLJOiJJD xJsJyJ 






WP Y T T 
iMd A 1 X 




Q A 


w LJ 1 U X w V.' 


lOO FOR 1=1 TO L 
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Vat/" 



101 GOSUB 500 

102 PRINT "year = " p I NT ( YS+ I - 1 ) w 

104 FOR J=l TO 7 , 

105 PRINT "^uel use for ";M*(J); 

107 INPUT FF w 

108 PRINT "cost ^or ";M*(J>; 

109 INPUT DD 
no F<I)=F<I)+FF w 
112 D ( I ) =D ( I ) +DD 
114 NEXT J 

116 NEXT I W 

150 CALL CLEAR 

200 INPUT "fuel use for january? "iMI 

201 CALL CLEAR 

202 1=1 

220 READ ST«, CT* < I ) , H < 1 , I ) , H (2, I ) , H (3 

,I),H(4,I),H<5,I),H(6,i),H(7,I) ^ 

230 IF SEG* (ST«, 1 , 7) OSEG* (B*, 1 , 7) THE 
N 240 

235 1 = 1 + 1 \mJ 

240 IF ST*="end" THEN 250 

245 GO TO 220 ^ 

250 J=I — 1 Vifc/' 

251 LL=YS-74+l 

252 PRINT TAB<5> ; "state";TAB<15) ; "cit ^ 
255 FOR 1=1 TO J 

260 PRINT I ; TAB (5> ; B*; TAB < 15) ; CT* ( I > 

265 NEXT I ^ 

270 INPUT "choose « of city ":I 

272 CALL CLEAR 

274 GOSUB 500 w 

280 X= (F < 1 ) -7*MI ) /H (LL, I ) 

281 RATE < 1 ) =D < 1 ) /F < 1 ) 

282 YY=TRC (RATE < 1 ) > W 

283 PRINT "chosen city= " ; CT« < I ) 

284 PRINT "rate <lst year>= ";YY: : 

290 PRINT "year TAB (6) ; "rate" ; TAB < 13 ^ 

) ; "f uel " 5 TAB (21 ) ; "savi ngs" 

292 PRINT TAB ( 12) ; "savings" ; TAB (20) ; " 

(dollars)" ^ 

295 FOR K=2 TO L 

1 44 



300 HH=H (LL+K-1 , I ) «X+7«MI-F <K) 

302 RATE (K> =D <K> /F <K) 

304 C=HH«RATE<K) 

312 HH=TRC<HH) 

314 RATE <K) =TRC (RATE <K) ) 

316 C=TRC<C) 

320 PRINT INT <YS+K-1 ) s TAB <5) 5 RATE <K) 5 

TAB (12) ;HH;TAB(21) ;C 
340 NEXT K 
342 PRINT 
344 GOSUB 500 

346 PRINT " (+ = savings) (- = loss)" 
348 GOTO 255 

500 PRINT " 

502 RETURN 

199? DATA april^may^june^july, august y 
September , October 



Prosram 14« Cooling Audit DATA Statements* 

2000 DATATEXAS, BROWNSVILLE, 3871, 3857, 3327, 4023, 
4188,3689,3756 

2001 DATATEXAS,ARMARILLO, 1396, 1235, 1013, 1700, 15 
56,1168,1666 

2020 DATATEXAS,FORT WORTH, 2578 , 2609 , 2251 , 3017 , 2 

965,2509,3142 
2 030 DATATEXAS, HOUSTON, 2821, 2656, 2225, 2751, 2866 

,2577,3127 

2032 DATAALABAMA, BIRMINGHAM, 1640, 18 58, 1427, 227 2 

,1975,1719,2177 
2 034 DATAALABAMA, MOBILE, 2548, 2732,2405,2846,288 

4 ,2442,2680 

2036 DATAALABAMA, MONTGOMERY, 1941, 2349, 1730, 2630 

,2388,2033,2375 
2 038 DATAARIZONA,FLAGSTAFF,232,88,98,191,152,8 5 

,334 

2040 DATAARIZONA, PHOENIX, 4285, 3785, 3965, 4521, 4 3 

43,4186,3872 
2042 DATAARIZONA, TUCSON, 2788, 2592, 2760, 3099, 318 

4,3052,2844 

2044 DATAARKANSAS,LITTLEROCK, 1787, 194 1,160 2, 226 
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6,2358,1926,2486 
2 046 DATACALIFORNIA,LOSANGELES,6 27,50 5,8 64,602, 
827,845,494 

2 048 DATACALIFORNIA,SANFRANCISCO, 127, 8 0,192,88, 
144,182,102 

2 050 DATACOLORADO,DENVER,715,554,667,799,748,66 
,,1,950 

2 052 DATACONNECTI CUTT , HARTFORD ,764,870,819,905, 
657,811,787 

2 054 DATADELAWARE, WILMINGTON, 1109, 1101,100 3,112 

0,1016,990,1333 
2 056 DATAFLORIDA, JACKSONVILLE, 2460, 2784, 2179, 27 

17,2559,2483,2647 
2 058 DATAFLORIDA, MI AMI, 4657, 4 570, 4 014, 4 202, 4 18 3 

,4218,3486 

2 060 DATAFLORIDA, TALLAHASSEE, 2472, 2604, 229 2, 249 

8,2480,2198,2458 
2 062 DATAGEORG I A, ATLANTA, 1506, 1600, 1254, 17 35, 17 

73,1762,2370 
2 064 DATAGEORGIA,SAVANAH,2289,2574,1954,2643,25 

70,2390,2501 
2066 DATAIDAHO,BOISE,8 51,789,535,8 22,597,7 52,51 

1 

2 068 DATAIDAHO,POCATELLO,460,440,372,519,369,47 
9 225 

2 070 DATAILLINOIS, CHICAGO, 770, 1124, 9 06, 1218, 982 
812 9 29 

2 07 2' DATAILLINOIS, SPRINGFIELD, 9 84, 1200, 1021, 136 

9,1253,1201,1452 
2074 DATAINDIANA,EVANSVILLE, 1229, 1500, 11 12, 1779 

,1550,1238,1672 
2 076 DATAINDIANA,FORTWAYNE,7 27,8 33,664,1032,8 98 

,677,844 

2 078 DATAINDIANA, INDIANAPOLIS, 8 50, 1046, 77 0,1 363 

,1300,882,1142 
2 080 DATAIOWA,DESMOINES, 974, 1237, 1050, 1342, 1226 

,984,1262 

2 08 2 DATAIOWA,SIOUXCITY,9 80,1013,969,8 62,9 28,8 6 
5,1071 

2 084 DATAKANSAS,TOPEKA,117 3,147 4,1294,1563,1434 
,1275,1810 

2 086 DATAKANSAS, WICHITA, 1466, 1512, 14 17, 184 1,204 
7,1663,2286 

2 088 DATAKENTUCKY, LOUISVILLE, 10 55, 1506, 11 30, 171 

7,1539,1236,1676 
2 090 DATALOUISI ANA, BATONROUGE, 2641 ,2618,2248,27 
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72,2781,2379,2670 
2 092 DATALOUISIANA,NEWORLEANS,2655,2637,2390,29 

62,3059,2895,3030 
2 094 DATAMAINE, CARIBOU, 116, 27 1,23 1,223, 264, 290, 

211 

2 096 DATAMAINE, PORTLAND, 296, 35 1,308, 308, 336, 3 16 
,468 

2 098 DATAMARYLAND, BALTIMORE, 1038, 1245, 1149, 1474 

,1274,1137,1407 
2100 DATAMASSACHUSETTS,BOSTON,646,862,8 95,897,6 

68,789,894 

2102 DATAMICHIGAN,DETROIT,620,7 31,7 06,873,760,5 
22,672 

2104 DATAMICHIGAN,GRANDRAPIDS,400,619,6 38,714,5 
88,614,667 

2106 DATAMICHIGAN,SAULST.MARIE,126,243,167,86,1 
25,145,96 

2108 DATAMINNESOTA,DULUTH, 149, 229, 27 1,122, 224,1 
69,241 

2110 DATAMINNESOTA, INT. FALLS, 259, 328, 28 1,187, 21 
9,131,327 

2112 DATAMINNESOTA, MINNEAPOLIS, 6 19, 8 50, 9 50, 691, 
811,651,776 

2114 DATAMISSISSIPPI, JACKSON, 20 36, 2300, 194 3, 253 

5,2421,1947,2578 
2116 DATAMISSOURI,KANSASCITY,1159, 1534,1296, 140 

3,1535,1174,1721 
2118 DATAMISSOURI,ST.LOUIS,1175,1431,1229,1667, 

1519,1578,1907 
2120 DATAMISSOURI, SPRINGFIELD, 1095, 1349, 108 5, 16 

92,1565,1122,1850 
2122 DATAMONTANA,BILLINGS,572,478,547,545,429,7 

16,670 

2124 DATAMONTANA,GREATFALLS,473,315,389,293,332 
,396,302 

2126 DATAMONTANA, MISSOULA, 30 3, 2 58, 158,295,18 5,3 
90,125 

2128 DATANEBRASKA, LINCOLN, 1128, 128 2, 1178, 1250,1 

175,1098,1552 
2130 DATANEBRASKA,OMAHA,1021,1389, 1249, 1364 ,132 

1,1124,1374 

2132 DATANEVADA,LASVEGAS,3403,297 3,2809,3332,33 

00,3387,3035 
2134 DATANEVADA,RENO,258,348,236,500,340,4 04,40 



2136 DATANEW HAMPSHIRE , CONCORD , 302 , 553 , 419 , 488 , 
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521,519,450 

2138 DATANEW JERSEY , TRENTON ,977 , 1070 , 1053 , 1163 , 

976,936,1288 
2140 DATANEW MEXICO , ALBUQUERQUE , 1353 , 1100 , 1141 , 

1335,1398,1508,1519 
2142 DATANEW MEXICO ,ROSWELL , 1655 , 1437 , 1786 , 2428 

,1991,1684,2061 
2144 DATANEW YORK, ALBANY, 386, 597, 476, 574 ,456,63 
6,561 

2146 DATANEW YORK ,NEWYORK , 1017 ,9 53 , 1158 , ltJ97 , 9 1 
9,1049,1276 

2148 DATANEW YORK , SYRACUSE ,405 , 555 , 357 , 520 ,623 , 
595,687 

2150 DATANORTH CAROLINA, ASHEVILLE ,7 31 , 795 , 545 , 1 

007,973,792,1166 
2152 DATANORTH CAROLINA, RALEIGH, 1325 , 1452 , 1459 , 

1701,1671,1275,1742 
2154 DATANORTH CAROLINA, WILMNGTON , 1978 , 237 3 , 193 

6,2310,2097,1966,2230 
2156 DATANORTH DAKOTA, FARGO , 444 , 553 ,766 , 487 , 6 04 

,504,580 

2158 DATANORTH DAKOTA,WILLISTON , 440 , 376 , 507 , 4 10 

,421,415,600 
2160 DATAOHIO, COLUMBUS, 836, 1147, 608, 1073, 968, 80 

8,1008 

2162 DATAOHIO, TOLEDO, 608, 692, 599, 784, 741, 602, 74 


2164 DATAOKLAHOMA,OKLACITY, 1651, 1615, 1702, 2163, 

2418,1805,2479 
2166 DATAOREGON, BURNS, 406, 347, 227, 4 51, 277, 367,1 

06 

2168 DATATENNESSEE,KNOXVILLE, 1340, 1530, 1133, 181 

I , 1612,1355,1814 

2170 DATAPENNSYLVANIA,HARRISBURG, 1163, 1026, 901, 

1053,1015,828,1183 
2172 DATAPENNSYLVANIA,PITTSBURG,657,7 21,358,623 

,836,620,876 
2174 DATAPENNSYLVANIA, PHILADELPHIA, 1165, 1243, 12 

II, 1237,1247,1097,1410 

2176 DATARHODE ISLAND , PROVIDENCE ,666 , 694 , 631 ,8 2 

1,610,640,789 
2178 DATASOUTH CAROLINA, CHARLESTON , 2044 , 2408 , 18 

85,2584,2319,2204,2258 
2180 DATASOUTH CAROLINA, GREENVILLE , 1435 , 1547 , 11 

35,1958,1559,1296,1710 
2182 DATASOUTH DAKOTA, RAPIDCITY ,697 , 583 ,676 , 574 
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,669,550,665 
2184 DATASOUTH DAKOTA, SIOUXFALLS ,751 ,910 , 1040 ,8 

54,743,724,793 
2186 DATATENNESSEE, CHATTANOOGA, 1058, 136 5, 1165, 2 

095,1847,1432,1778 
2192 DATAUTAH,SALTLAKECITY,1191,900,943,1108,10 

18,1274,990 

2194 DATAVERMONT, BURLINGTON, 44 2, 699, 48 3, 507, 489 
,531,503 

2196 DATAVIRGINIA, NORFOLK, 1531, 1744, 1558, 1930,1 

535,1433,1788 
2198 DATAVIRGINIA, RICHMOND, 1259, 1433, 1385, 1814, 

1573,1375,1681 
2200 DATAWASHINGTON , SEATTLE , 196 , 197 ,129,232,210 

rl71,57 

2 202 DATAWASHINGTON, SPOKANE, 4 05, 340, 29 3, 47 2, 326 
,496,228 

2204 DATAWEST VIRGINIA,CHRLSTON ,9 10 , 1074 ,8 01 , 12 

27,1114,894,1123 
2206 DATAWISCONSIN,GREENBAY,323,514,520,534,440 

,380,451 

2208 DATAWISCONSIN,MADISON,457,742,627,622,589, 
450,630 

2 210 DATAWYOMING, CHEYENNE, 349, 193, 217, 252, 297, 3 
52,415 

2990 DATAWYOMING, LANDER, 467, 333, 394, 4 10, 4 08, 4 36 
,423 

2995 DATAEND, END, 0,0, 0,0, 0,0,0 
3000 END 
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Heat Conduction 



If you have ever been in your attic in the summer or have felt a 
cold window with your hand in the winter, you probably 
wondered how much the conduction through the window or the 
ceiling was costing you. The first inch of insulation does the most 
good at resisting heat flow, and each inch after that is less and less 
effective. Even with today's rapidly increasing energy prices, a 
point is reached when it is not economical to keep adding 
insulation. 

The conduction program will allow you to determine how 
much heat you are losing in the winter or how much heat you are 
gaining in the summer and how this affects your utility bills. The 
program requires that you know the temperature on each side of 
the wall or window in question. This can be done by using simple 
thermometers which are shaded from the sun and are manually 
recorded every few hours during a day. 

Calculating The EER 

The program requires that the hot side (Tl) always be hotter than 
the cold side (T2); no reversals are permitted. The energy 
efficiency of the air conditioner must be known. It will be either an 
EER or SEER. If you don't know the rating, you can calculate it 
after you determine the number of amps it draws by reading the 
specification plate. Use the following formula to calculate the EER: 

EER = TONS* 12000/(volts*amps) 

It should fall between 6 and 12 for a typical unit. 

The area and the R value of the wall or window must be 
known, along with the price of electricity for cooling or natural gas 
for heating. Books listing the R values of various materials are 
widely available from public libraries and from power companies. 
The following is a small sample to get you started. 

Material R-value 

Sheet Rock wall board .32 

Single window 1.0 

Double window 2.0 

1/4 "plywood .3 

Brick .4 

airspace >.75in .9 
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The figure shows the attic, ambient (outside), and room 
temperature for July 19, 1982 in the author's house. The attic is 
ventilated by turbine vents, and the ceiling has an R value of about 
19. If it were not for the prevailing winds and the ventilators, the 
attic temperatures would have been much hotter, thereby 
increasing the heat flow into the house. In fact, the more insulation 
placed in the ceiling, the hotter the attic will become, unless it is 
offset by better ventilation. 

The sample run for this situation shows that about $9/month 
is being lost through the ceiling. At this rate, any further 
improvements would have to be fairly inexpensive in order to be 
cost effective. If the author could have achieved 100% ventilation, 
the temperature would have been almost 20 degrees cooler in the 
attic. Even so, this would have saved only about $4 per month. 

Given this situation, the author will probably try to increase 
ventilation in the attic using additional soffit vents (grill-type vents 
under the eaves), but will probably not use power turbines until 
electric rates increase substantially. 




8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 1 2 
Time (CDT) 



Temperatures in the Author's House on July 19, 1982 in 
Houston, TX« 
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Sample Run. 

HEAT CONDUCTION PR06RAM 

CALCULATIONS ARE FORt 

1) AIR CONDITIONING 

2) HEATING 

CHOOSE ONE? i 

# OF TEHP DATA POINTS DESIRED? 7 

R VALUE OF INSULATION? 19 

AREA OF SURFACE <SQ FT)? 2000 

COST OF ELECTRICITY <CENTS/KWH)? 8.5 

SEER OR EER OF AIR CONDITIONER <6-12)? 7-5 



IN THE FOLLOWING SECTION YOU SHOULD INPUT THE TIME 
AND TEMPERATURES FOR THE HEAT CONDUCTION CALCULATIONS 
DURING THAT PART OF A DAY WHEN TEMPI >» TEMP2 

MILITARY TIME SHOULD BE USED (E.G. 1 PM IS 13) 
TEMPERATURE SHOULD BE IN DEG F 

HIT <RETURN> TO CONTINUE 



HOUR = ? 8 

MINUTES = ? 15 

HOT SIDE TEMP <= ? 80 

COLD SIDE TEMP = ? 80 

HOUR = ? 11 

MINUTES = ? O 

HOT SIDE TEMP » ? 91.4 

COLD SIDE TEMP = ? 80 

HOUR = ? 13 

MINUTES « ? 45 

HOT SIDE TEMP = ? 104-9 

COLD SIDE TEMP » ? 80 

HOUR - ? 16 

MINUTES » ? O 

HOT SIDE TEMP « ? 108-5 

COLD SIDE TEMP = ? 80 

HOUR B ? 18 
MINUTES » ? 30 
HOT SIDE TEMP = ? 102 
COLD SIDE TEMP - ? 80 

HOUR " ? 22 
MINUTES - ? 30 
HOT SIDE TEMP » ? 86 
COLD SIDE TEMP » ? 80 

HOUR - ? 25 
MINUTES ■ ? 45 
HOT SIDE TEMP » ? 80 
COLD SIDE TEMP » ? 80 

COST OF CONDUCTION OF HEAT INTO HOUSE 
FOR 30 DAYS « ^9.11 
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Prosram2. VICYersion« 

10 REM CONDUCTION PROGRAM VIC VERSION 
30 DEFFNTRC(E) =INT(E*100)/100 

40 GOSUB330: PRINT" {CLEAR} HEAT CONDUCTION PRO 
GlDOWN}" 

5 PRINT^CALCULATIONS ARE FOR": PRINT" 1) AIR C 

ONDITIONING" 
60 PRINT"2) HEATING{DOWNl": PRINT" <CHOOSE 

NE>":INPUTA$ 
7 PRINT" {DOWN} # OF TEMP DATA PTS" : INPUT"DESI 

RED";N 

80 DIM HR(N) ,MIN(N) ,T1(N) ,T2(N) 

90 PRINT" {DOWN}R VALUE OF INSULATION" : INPUTR 

100 PRINT" {DOWN}AREA OF SURFACE (SQ FT) " : INPUTA 

110 IFA$="2"THEN140 

120 PRINT" {DOWN}COST OF ELECTRICITY" : INPUT" (CE 
NTS/KWH) ";C 

130 PRINT" {DOWN}SEER OR EER OF AIRCONDI 
TIONER (6-12) " : INPUTSEER:GOTO150 

140 PRINT" {DOWN}COST OF NATURAL GAS (CENTS/CU " 
FT) ": INPUTC 

150 GOSUB330: PRINT" {CLEAR} IN THE FOLLOWING SEC 
TION YOU SHOULD INPUT THE TIME" 

152 PRINT" AND TEMPERATURES FOR THE HEAT CONDU 
CTION CALCULATIONS" 

154 PRINT"DURING THAT PART OF A DAY WHEN TEMPI 
>= TEMP2" 

160 PRINT"MILITARY TIME SHOULD BE USED E.G. 1 
PM IS 13" 

162 PRINT"TEMPERATURE SHOULD BE IN DEG F" 
170 PRINT" HIT CARRIAGE RETURN TOCONTINUE" 
180 GETB$ :IFB$=""THEN180 

200 GOSUB270:FL=0:FORM=2TON:D1=T1 (M-l)-T2 (M-1) 

:D2=T1(M)-T2(M) 
210 DT=HR{M)+MIN(M) /60-HR (M-l)-MIN(M-l)/60 
220 FL=FL+ (D1+D2) *DT/ (2*R) :NEXT 
230 IFA$="2"THEN250 

240 GOSUB330 SPRINT" {CLEAR}COST OF CONDUCTION 

F HEAT INTO HOUSE" 
242 PRINT"FOR 30 DAYS = $ " ; FNTRC ( 30*FL*A*C/ (SE 

ER*10T5) ) :STOP 
250 PRINT" {CLEAR}COST OF CONDUCTION OF HEAT OU 

T OF HOUSE" 



158 



252 PRINT"FOR 30 DAYS = $ " ; FNTRC (FL*A*C*30/550 

00) 
260 END 

270 PRINT" {CLEAR} HR MIN TEMPI TEMP2" : PRINT 
275 F0RM=1T0N:INPUTHR(M) : IFL=0ANDHR (M) <HR(M-1) 

THENL=1 
280 IFL=1THENHR(M) =HR(M)+24 
290 PRINT" {UP} ";TAB(4) ; :INPUTMIN(M) 
300 PRINT" {UP} ";TAB(8) ; : INPUTTl (M) 
310 PRINT"{UP}";TAB(15) ; :INPUTT2(M) 
320 IFT2 (M) >T1(M)THENPRINT"ERR0R IN "M;"LINE": 

STOP 
3 25 NEXT: RETURN 
3 30 PRINT" {02 DOWN} ": RETURN 

3 50 REM FL=HEAT FLUX BTU/SQ FT 
360 REM C=COST OF FUEL 

370 REM T1=H0T SIDE TEMP DEG F 
380 REM T2=C0LD SIDE TEMP DEG F 
390 REM A=AREA OF SURFACE SQ FT 

4 00 REM HT()=HOURS, MIN()=MIN 

410 REM Dl & D2 = TEMP DIFFERENTIAL 

4 20 REM R= R VALUE OF INSULATION 

430 REM SEER = EER OR SEER (EFFICIENCY) OF AIR 

CONDTIONER = (BTU/HR) /WATT 
4 40 REM DT=TIME BETWEEN TWO TEMPERATURE MEASUR 

EMENTS (HOURS) 



Program 3. Microsoft Version^ 

10 REM CONDUCTION PROGRAM 

30 DEFFNTRC(E)=INT(E*100)/100 

40 GOSUB330: PRINT" {CLEAR} HEAT CONDUCTI 

ON PROGRAM{04 DOWN}" 
50 PRINTTAB (8) ; "CALCULATIONS ARE FOR: {DOWN}": 

PRINTTAB(8) ;"1) AIR CONDITIONING {DOWN 

DOWN}" 

60 PRINTTAB(8) ;"2) HEATING {DOWN} ": PRINTTAB ( 11 

);"<CHOOSE ONE>";:INPUTA$ 
70 INPUT" tDOWN}# OF TEMP DATA PTS DESIRED, (=> 

5) ";N 

80 DIM HR(N) ,MIN(N) ,T1(N) ,T2(N) 
90 INPUT" { DOWN }R VALUE OF INSULATION" ; R 
100 INPUT" {DOWN} AREA OF SURFACE (SQ FT) "; A 
110 IFA$="2"THEN140 
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120 INPUT" {DOWN}COST OF ELECTRICITY (CENTS/KWH 
) " ;C 

130 INPUT" {DOWN} SEER OR EER OF {RIGHT} AIRCONDIT 

IONER(6-12) " ;SEER:GOTO150 
140 INPUT" {DOWN}COST OF NATURAL GAS (CENTS/CU 

FT) ";C 

150 GOSUB330: PRINT" {CLEAR} {06 DOWN} IN THE FOLL 

OWING SECTION YOU SHOULD" 
152 PRINT" INPUT THE TIME AND TEMPERATURES FOR 

THE HEAT "; 

154 PRINT"CONDUCTION CALCULATIONS DURING THATP 
ART OF A DAY WHEN TEMPI >= TEMP2" 

160 PRINT" {DOWN}MILITARY TIME SHOULD BE USED E 
.G. 1 PM IS 13" 

162 PRINT" {DOWN} TEMPERATURE SHOULD BE IN DEG F 
II 

170 PRINT" {DOWN} <PRESS CARRIAGE RETURN TO CONT 
INUE>" 

180 GETB$: IFB$=""THEN180 

200 GOSUB270:FL=0:FORM=2TON:D1=T1 (M-1) -T2 (M-1) 

:D2=T1 (M) -T2 (M) 
210 DT=HR (M) +MIN (M) /60-HR (M-1) -MIN (M-1) /60 
220 FL=FL+ (D1+D2) *DT/(2*R) :NEXT 
230 IFA$="2"THEN250 

240 GOSUB330: PRINT" {CLEAR} {05 DOWN}COST OF CON 

DUCTION OF HEAT INTO HOUSE" 
242 PRINT"FOR 30 DAYS = $" ; FNTRC ( 30*FL*A*C/ (SE 

ER*10T5) ) :GOT0255 
250 PRINT" {CLEAR} {05 DOWN}COST OF CONDUCTION 

F HEAT OUT OF HOUSE" 
252 PRINT"FOR 30 DAYS = $" ;FNTRC (FL*A*C*30/550 

00) 

255 GOT0255 
260 END 

270 PRINT" {CLEAR} HR MIN TEMPI TE 

MP2{D0WN}" 

275 F0RM=1T0N:INPUTHR(M) : IFL=OANDHR (M) <HR(M-1) 

THENL=1 
280 IFL=1THENHR(M) =HR(M) +24 

290 PRINT"{UP}";TAB(8) ; :INPUTMIN(M) 
300 PRINT" {UP}"; TAB (17) ; :INPUTT1(M) 
310 PRINT"{UP}";TAB(27) ; :INPUTT2(M) 
320 IFT2(M)>T1(M)THENPRINT"ERR0R IN "Mp'^LINE, 

TEMP2>TEMP1" ISTOP 
325 NEXT -.RETURN 
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& D2 = TEMP DIFFERENTIAL 
R VALUE OF INSULATION 



CONDTIONER = (BTU/HR) /WATT 
REM DT=TIME BETWEEN TWO TI 
EMENTS (HOURS) 



Pro3ram4« Atari Version. 

REM CONDUCTION PROGRAM ATARI VERSI 
ON 

OPEN #1 , 4, O, "K: " : DIM A«(20) 
GOSUB 330: PRINT " CCLEAR> HEAT COND 
UCTION PROG{DOWN>" 

PRINT "CALCULATIONS ARE FOR": PRINT 

"1) AIR CONDITIONING" 
PRINT "2) HEATING{DOWN> ": PRINT " 
€3 SPACESXCHOOSE ONE>"s INPUT A* 
PRINT "CDOWN># OF TEMP DATA PTS":P 
RINT "DESIRED" INPUT N 
DIM HR<N) ,MIN<N> ,T1 (N) ,T2<N) 

PRINT "<:down>r value of insulation 

"s INPUT R 

PRINT "<:down>area of surface (SQ F 

T) " : INPUT A 
IF A*="2" THEN 140 

PRINT "<:D0WN>C0ST of ELECTRICITY" 
: PRINT " <CENTS/KWH> ";! INPUT C 
PRINT "CDOWN>SEER OR EER OF AIR C 
ONDITIONER ( 6- 1 2 ) " s I NPUT SEER:GOT 
150 

PRINT "tDOWNJCOST OF NATURAL GAS 
<CENTS/CU FT)": INPUT C 
GOSUB 330: PRINT "tCLEARJIN THE FO 
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LLOWING SECTION YOU SHOULD":? "EN 

TER THE TIME" 
152 PRINT "AND TEMPERATURES FOR THE H 

EAT":? "CONDUCTION CALCULATIONS" 
154 PRINT "DURING THAT PART OF A DAY" 

:? "WHEN TEMPI >= TEMP2" 
160 PRINT "MILITARY TIME SHOULD BE US 

ED":? "E.G. 1 PM IS 13" 
162 PRINT "TEMPERATURE SHOULD BE IN D 

EG F" 

170 ? :PRINT "HIT lrl=**IJ?i; TO CONTINUE" 
ISO GET »1,ZZ 

200 GOSUB 270:FL=0:F0R M=2 TO N:D1=T1 
(M-1 ) -T2 <M-1 ) :D2=T1 (M)-T2<M) 

21 O DT=HR<M)+MIN<M) /60-HR ( M~ 1 ) -M I N < M- 
1 ) /60 

220 FL=FL+ (D1+D2) *DT/ (2*R) : NEXT M 
230 IF A*="2" THEN 250 

240 GOSUB 330: PRINT "<CLEAR>COST OF C 

ONDUCTION OF HEAT INTO HOUSE" 
242 PRINT "FOR 30 DAYS = «";:V=<30«FL 

*A«C/ (SEERtlO-S) ) : V= I NT ( V» 1 OO+O . 5 

)/100:? VsEND 
250 PRINT "<CLEAR>COST OF CONDUCTION 

OF HEAT OUT OF HOUSE" 
252 PRINT "FOR 30 DAYS = *";:V=(FL»A» 

C«30/55000) : V= I NT ( V« 1 OO+O . 5 ) /I 00: 

? V 
260 END 

270 PRINT "tCLEARJ HR<3 SPACES>MIN 

iZ SPACES>TEMP1 <3 SPACES> TEMP2 " : P 
RINT 

275 FOR M=l TO N: INPUT TT : HR ( M ) =TT : I F 

L=0 AND HR(M)<HR(M-1) THEN L=l 
280 IF L=l THEN HR < M ) =HR ( M ) +24 
290 PRINT »CUP>";:POKE 85,8: INPUT TT: 
MIN (M) =TT 

300 PRINT "<:UP>"; :POKE 85, 14: INPUT TT 
: Tl <M) =TT 

310 PRINT " <:UP>"; :POKE 85,22: INPUT TT 
: T2 <M) =TT 

320 IF T2<M)>T1(M) THEN PRINT "ERROR 
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IN ";M5" LINE"sEND 
325 NEXT M: RETURN 
330 PRINT "<:2 DOWN> RETURN 
350 REM FL=HEAT FLUX BTU/SQ FT 
360 REM C=COST OF FUEL 
370 REM T1=H0T SIDE TEMP DEG F 
380 REM T2=COLD SIDE TEMP DEG F 
390 REM A=AREA OF SURFACE SQ FT 
400 REM HT<)=HOURS, MIN<)=MIN 
410 REM Dl 8c D2 = TEMP DIFFERENTIAL 
420 REM R= R VALUE OF INSULATION 
430 REM SEER = EER OR SEER (EFFICIENC 

Y) OF AIRCONDTIONER = < BTU/HR ) / WAT 

T 

440 REM DT=TIME BETWEEN TWO TEMPERATU 
RE MEASUREMENTS (HOURS) 



Program 5. Color Computer Version* 

10 REM COLOR COMPUTER VERSION 

2 REM CONDUCTION PROGRAM 

30 DEFFNTRC(A) =INT(A*100)/100 

40 CLS:PRINTTAB(5) /"HEAT CONDUCTION PROGRAM": 
PRINT 

50 PRINT"CALCULATIONS ARE FOR: PRINT" 1 
) AIR CONDITIONING": PRINT" 2) H 

EATING" 

6 PRINT: INPUT"CHOOSE ONE";A$ 

7 PRINT: PRINT" # OF TEMPERATURE DATA POINTS": 

INPUT"DESIRED";N:IFN=0THEN70 
80 DIM HR(N) ,MIN(N) ,T1(N) ,T2 (N) 
90 PRINT:INPUT"R VALUE OF INSULATION" ; R : CLS 
100 PRINT: INPUT"AREA OF SURFACE (SQ FT)";A 
110 IFA$="2"THEN140 

120 PRINT: INPUT"COST OF ELECTRICITY (CENTS/KWH 
) ";C 

130 PRINT: INPUT"SEER OR EER OF AIRCONDITIONER " 

(6-12) "; SEER:GOTO150 
140 PRINT: INPUT"COST OF NATURAL GAS (CENTS/CU " 

FT) ";C 

150 CLS:PRINT"IN THE FOLLOWING SECTION YOU SHO 

ULD INPUT THE TIME AND TEMPERATURES" 
155 PRINT" FOR THE HEAT CONDUCTION CALCULATIONS 
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DURING THAT PART OF A DAY" 

159 PRINT" WHEN TEMP1>= TEMP2" 

160 PRINT:PRINT"MILITARY TIME SHOULD BE USED E 
.G. 1 PM IS 13" 

165 PRINT"TEMPERATURE SHOULD BE IN DEG F" 
170 PRINT:PRINT"HIT ANY KEY TO CONTINUE" 
180 IF INKEY$=""THEN180 
190 GOSUB270 

200 FL=0:FORM=2TON:D1=T1 (M-l)-T2 (M-1) :D2=T1 (M) 
-T2(M) 

210 DT=HR(M)+MIN(M) /60-HR (M-1 )-MIN (M-1 )/60 
220 FL=FL+ (DH-D2) *DT/ (2*R) :NEXT 
230 IFA$="2"THENGOTO250 

240 CLS:PRINT"COST OF CONDUCTION OF HEAT INTO 
HOUSE" 

245 PRINT"FOR 30 DAYS = $ " ; FNTRC ( 30*FL*A*C/ (SE 

ER*10 5) ) :STOP 
250 CLS:PRINT"COST OF CONDUCTION OF HEAT OUT 

F HOUSE" 

255 PRINT"FOR 30 DAYS = $"; FNTRC (FL*A*C*30/550 

00) 
260 END 

270 GOSUB330:FORM=1TON:INPUTHR(M) : IFL=0ANDHR (M 

) <HR(M-1)THENL=1 
280 IFL=1THENHR(M) >=HR(M)+24 
290 PRINT@6+32*M,""; :INPUTMIN(M) 
300 PRINT@15+32*M,""; :INPUTT1 (M) 
310 PRINT@24+32*M,""; :INPUTT2(M) 
320 IFT2 (M) >T1 (M) THENPRINTg 13+32*M , " 

" :GOTO300ELSENEXT:RETURN 
3 30 CLS: PRINT" HOURS MIN" ; TAB ( 15) ; "TEMPI" ; TAB 

(24) ;"TEMP2" 
340 RETURN 

3 50 REM FL=HEAT FLUX BTU/SQ FT 
360 REM C=COST OF FUEL 

370 REM T1=H0T SIDE TEMP DEG F 
380 REM T2=C0LD SIDE TEMP DEG F 
390 REM A=AREA OF SURFACE SQ FT 

4 00 REM HR()=HOURS, MIN()=MIN 

410 REM Dl & D2 = TEMP DIFFERENTIAL 
4 20 REM R= R VALUE OF INSULATION 

430 REM SEER=EER OR SEER (EFFICIENCY) OF AIRCO 

NDITIONER =(BTU/HR)/ (WATTS) 
4 40 REM DT=TIME BETWEEN TWO TEMPERATURE MEASUR 

MENTS (HOURS) 
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Program 6. TI-99 Version* 




1 o 


REM f~ on d ti c "h i on nr'oar'afn. "hi — 99 vers 


w 




i on 




30 


DEF TRC <E) =INT <E»100) / lOO 


40 


CALL CLEAR 




44 


PRINT " C3 SPACES>heat conduction p 




45 


r ogram" 

FOR 1=1 TO 10 




46 


PRINT 




47 

50 


NEXT I 

PRINT "calculations are for" 




52 


PRINT "1) air conditioning" 




54 

56 


PRINT "2) heating" 
PR I NT 




58 


INPUT "choose one " : A* 




60 
70 


PRINT 

INPUT "number of temperature data 






points desired? "sN 




80 
84 


DIM HR <30> ,MIN(30) ,T1 (30) ,T2(30) 
CALL CLEAR 




90 


INPUT "r value of insulation? "sR 




94 

95 


PRINT 
PRINT 




100 


INPUT "area of surface <sq ft)? " 




110 


: A 

IF A*="2" THEN 140 




114 


PRINT 




115 


PRINT 


1 20 


INPUT "cost of electricity 






^9 SPACES> < cent s/ k wh ) "sC 




125 


PR I NT 
PRINT 




130 


INPUT "seer or eer of<:i4 SPACES>ai 






rconditioner <6-12)? " s SEER 








140 


PRINT 




141 
144 


PRINT 

INPUT "cost o-f natural gas (cents 






/cu ft>? ":C 




150 


CALL CLEAR 


152 


PRINT "in the following section y 


\Jp/ 
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oushould input the time" ^ 

154 PRINT "and the temperatures for t ^ 

heheat conduction calculations" 

156 PRINT "during that part of a day ^ 

{:3 SPACES3when tempi >= temp2": s ^ 

159 PRINT "military time should be us ^ 
ede.g- 1 pm is 13": s = ^ 

162 PRINT "temperature should be in 

<4 SPACES>deg f.": : s ^ 

170 PRINT "press <enter> to continue" ^ 

180 INPUT B* 

181 CALL CLEAR ^ 

182 GOSUB 270 ^ 
200 FL=0 

202 FOR M=2 TO N ^ 
204 D1=T1 (M-1>-T2<M-1) ^ 
206 D2 = T1 <ri>-T2<M) 

210 DT = HR (M) -«-MIN <M) /60-HR <M-1 > -MIN <M- W 
1 ) / 60 

220 FL = FL-i- (Dl+D2> «DT/ (2*R) 

222 NEXT M ^ 
230 IF A*="2" THEN 250 ^ 

240 GOSUB 330 

241 MO = TRC <30*FL»A»C/ ( SEER* 1 OOOOO ) ) w 

242 PRINT "cost of conduction of heat ^ 

into house for 30 days 
SPACES3= *";M0 ^ 
244 STOP ^ 

250 CALL CLEAR 

251 MO=TRC <FL»A*C«30/550O0> w 

252 PRINT "cost of conduction of heat ^ 

out of house for 30 days = * ";M 

260 END ^ 

270 FOR M=l TO N 

271 PRINT ^ 

272 INPUT "hour= ?":HR(M) ^ 

273 IF LOO THEN 280 

276 IF HR (M> >=HR <M-1 ) THEN 280 w 

277 L — 1 

280 IF LOl THEN 290 
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^^^^^ 
































285 


HR < M ) =HR < h ) *^24 




290 


INPUT "minutes =? ":MIN<M) 


w 


300 


INPUT "hot side temp =?":Ti<li> 




3 1 O 


INPUT "cold side temp =?"sT2(M) 


w 


320 


IF T2 <M) <=T1 <M) THEN 325 


w 


322 


PRINT "error in line ";M 




323 


PRINT "hot side temp cannot be le 






ssthan cold side temp, reentertem 






peratures" : : : 




324 


GOTO 300 


w 


325 


NEXT M 


w 


326 


RETURN 


w 


330 
335 


FOR 1=1 TO 10 
PRINT 




338 


NEXT I 




340 


RETURN 


■uJ «_r V 


REM f l=heat flux btu/sq -ft 






<:3 SPACES? 




360 


REM c=cost of fuel 


370 


REM tl=hot side temo dea f 


I . 




<:3 SPACES! 




380 


REM t2=cold side temp deg f 




390 


REM a=area of surface sq ft 


w 


400 


REM ht < ) = hours, min()=min 






<:3 SPACES> 


410 


REM dl 8< d2 = temp differential 


w 


420 


REM r=r value of insulation 




430 


REM seer = eer or seer <ef f icien 




cy) of a i r c on d i t i on er = <btu/hr>/ 






watt 




440 


REM dt=time between two temperatu 




re measurements (hours) 




















^(^/ 
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Buyins A 
New Air 
Conditioner 



# 



Buying A New Air 
Conditioner 



Note: This program requires a data file on electricity usage created by 
the ''Energy Data Base'' program in this book. For the OSI, Atari, 
Apple, and Color Computer versions, the program expects the file to 
be stored on a disk. The VIC, PET/CBM/64 and TI versions use a 
data file stored on tape. 

If your air conditioner repairman has just said last rites over your 
condensing unit and has given you an estimate for a new unit, you 
are probably in a state of shock. More than likely, though, you 
received not one estimate, but several, each with different price 
tags and different efficiencies. Now what do you do? How can one 
choose between a higher cost, more efficient air conditioner and a 
lower cost, less efficient air conditioner? 

The efficiency rating which is applicable to the majority of 
central air conditioners is the SEER (Seasonal Energy Efficiency 
Rating). It is defined as the total cooling of an air conditioner in 
BTUs during a normal use period (several months) divided by the 
total electric energy input in Watt-Hours. 

If you know the SEER of each prospective unit and you have 
used the data base program to save at least one year of data on 
your electric use, then the air conditioner program will tell you 
what you will save each year by buying the high efficiency unit. 
Then it is up to you to determine if the additional cost of the high 
efficiency air conditioner will be paid back soon enough to warrant 
the extra expense. 

One note of caution: this program as currently set up is 
applicable only if you use different fuels for heating and cooling 
(e.g., heating with natural gas and cooling with electricity). The 
reason for this will become clear in the description of the program. 

Dramatic Rise And Fall 

Although different measures of efficiency are used for air 
conditioners depending upon their size and age, the definitions of 
the EER (energy efficiency rating) and SEER are similar enough to 
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make the program adaptable to either efficiency rating. If you 
want to calculate the EER of your air conditioner, simply use the 
formula: 

EER = TONS* 12000/(VOLTS* AMPS) 

Be sure to include the amperage of the condensing unit fan motor 
by adding it to the amperage of the compressor. 

Since electricity has a wide variety of uses in the home, and 
since the air conditioner system is usually the largest user (52%), 
the electric use in an average home rises and falls dramatically 
during the year (see the figure). The first thing the air conditioner 
program does after reading in the data (lines 230-250) is to 
determine the minimum KWH in the latest year in the data base 
(lines 1 10-130). This is used as an estimate for all other uses of 
electricity in the house. This base is subtracted from all months in 
order to arrive at the electric use by the air conditoner (line 130). 

The "old" air conditioner is presumed to be the least efficient 
(lower SEER or EER), and the "new" unit is defined as the most 
efficient (lines 150-160). If you have an all electric house, this 
technique would confuse cooling cost and heating cost and would 
thereby cause an overestimate of savings by buying the high 
efficiency air conditioner. The cost of electricity is input from the 
keyboard rather than by using last year's rates from the data base, 
since the user may want to extrapolate, using his estimate for the 
cost of electricity in the future. 

Although the equation in line 200 looks a little complicated, it 
basically converts the air conditioning kilowatt hours into BTUs 
which the old unit removed during that year. The number of 
kilowatt hours required by the new air conditioner is then 
calculated by dividing these BTUs by the new SEER. The 
difference between the kilowatt hours used by the old (less 
efficient) unit and the new unit is multiplied by the utility rate 
which gives the annual savings. 
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Sample Run« 



CHOOSING AN AIR CONDITIONER 

INSERT DISK WITH DATA FILE 'ELECT' 
HIT <RETURN> AFTER INSERTING DISK 

USING DATA FROM 1901 IN CALCULATIONS 

SEER OF OLD AIR CONDITIONER? 6 
SEER OF NEW AIR CONDITIONER? 8 

CURRENT COST OF ELECTRICITY IN CENTS/KWH = ? 8.55 

ANNUAL SAVINGS OF NEW AIR CONDITIONER 
AS COMPARED TO THE OLD UNIT « « 155.75 



2200 




JAN FEB MAR APR MAY JUNE JULY AUG SEPT OCT NOV DEC 



Electric Usage at the Author's Residence In Houston, TX In 
1981. 



173 



05 
Lu 







h- 






H- 














z 














05 








ID 






X 














H 














Z5 














i . > 

Ui-l 
























05 












z; 






z 














LL 










C5 




ui 








H 






H- 

H- z: 
























CD 




HE 














z: H 




0) 










Z 










<^ 












_j 






H ix: 




z 










H 














O 














u. 














H r- lC: 






















z: 






}— 




TI 










Z Z LL 

H H 










••^ 


■r-i 


TO 














o Z 




<e: 










ti: ui CD 










CD 


«<. 










Lii 






T-{ H 














LL lL CJ 












z 


Lu 














O Lu! 
























Lu 


•w 
















V— UL 




CJ 




















Z 




5 








o 




















Z Z ii 










Lu 


















Ii I- 














H H X 










II 




05 














H Z 




(J 










Li: .ui 3: 












C^>l 


ui 














Lii H 














lL u- v; 










>^ 


■r-i 


J- 














C Ji: 




z 




















t . : 












OD 






ii- Q- 




H 










h- H- CO 


Lii 










z 


h- 








LiJ 




















Z Z h- 


Ll! 












H- 














- I 




- 




X 






H H Z 


Z 








>- 


LlI 


<L 








O 






N H 








II 






ui LLi 


CD 












3 














LLi h- 




>- 




H 






lL lL CJ 


H 








o 


H 


z ii 














z: u = 








21 








i- 


I 






z 




ui 








o 






G LlI 








Z 






CO CO z 


H 








Lii 




ID LlI 








«h 






H -J CO 




- 




Ll! 






LU Z H 


Q 








:: 
n 


>- 


h- CO 








00 






K Lii H 








X 








Z 


II 






> 


LU 


LLi <E 








OD 






H ^ O 














= = >- 


o 








lii 




ill Lii 








00 






i_i 




C 




H 






iv Ui }- 


CD 


H 


•r-i 






>- 














X 


Z: Ui CD 














LlI Lii H 


Lt: 


z 


\ 






LU 


h- 00 








LLi 




LLi 


CD -J Z 




Li- 










Z Z C3 


H 








Di 




X 3 












Z 


CJ H H 








X 






C CJ H <r 




05 




>■ 


Z 


iLi z: 






lii 


c 






u_ H- 




<L 




li. 






H H q: 




Q 


z: 








z: H 






z: 






I— 


h: ui 




I— 




H 






1- I- 1- 


3 




\ 




CD 
















z 


<Z <L LlJ 




<E 










H H U 


LlI 


c 


•r^ 




Lii 






H- 




H 






H 






Cs 










CJ O iLi 


Z 




1 




ui 




X 05 


1- 




H- 






Lt 


z: <E z 














Z Z -i 




Lu 


05 




II 


^ 


Lii ui 


<r: 




H 


T-i 




lL 


<I O H 




CD 










C CD iii 


Ll 


X 


LU 




>- 




Z X 


3 




O 


\ 










Z 




H 






CJ CJ 


CD 


H- 


\ 




LU 


Z 








2: 








tD n cn 




H 










ui ui Ll 






•r^ 






H 




\ 




c 








z: ?- LLi 




CO 


H 


LLi 






H H O 


05 


CD 










^4 2: 1- 


CO 




CJ 








H H }- 








+ 






<L <r 


CD 


h- 






CO 




■r-i <C 


r- 




en 




■r-i 




0) 3: ll 






LL: 


Op 






}- 


Z 




CO 




ui 




CD H 3 


Z 


♦ 


H 




c 




C <L 












h- 


cj 3: 00 


H 


Ci 


LU 




> 


CJ 


H- C5 


Lu 


c 


<L 


X 




i! 


c 




z 


X 


CO 




Z 


^ Id a 


:> 


LlI 






11 


ijJ 


^ CJ -i 


CJ 


o 








H 


X O) z 




H 








H 


c z: CJ 


<e: 


ui 


05 




z 




II H 










Ii 


Lc: 


CJ H 








•r-i 




ir 




05 


<E 








Lu 


x: ^ :ii 


Z 




<! 






= O ZJ 






•r-i 






u. 


Ll ii. 1- 




LL 


c 








ui x: 


H 






H L>: 


1 . 

ML. 










"b 






o o z 




:c 


CJ 




<r 


«^ 


O <-Ll 






a 


ii 


C 




x-s J- LLi 








11 


H 




LLi 




o 


' 




}— 




li- H o 


«- 








: . 




o Lc: 




Z 


•r-t 


-n 


:c z 


ui ui ui 


ZD 


CD 


L5 




<i: 






CO 


H 


X 




ii 


C-M LlI 




H 


Ii 


Z 


I 


H 


Lu Lu LC: 


Z 




ui 






z 


z LLi :c 




O 


CO 




z 




w CO H 




L^ 


:e 


LLi 05 




LlI Lu ID 


z 


05 


^~ 






Lii 


O ID 


CD 


C 


CJ 






lD Z H 


o 


LL 


Lc: 


-JL. 




LL. 


05 00 CJ 


<I 


5 


z: 




i— 


u. 


V- <S 00 


ii 


« 


C 


Lc: 






<r H X 


CO 




o 


h- 


CO 










Ll 




Lu 


O 


T-i * 11 


O 




-r 




T-i 


-r-i 


H- = = 


c-^ 


1- 


Ll. 


o 






^ t t 


H- 


h- 






O 




II l~ 05 


o 




CJ 


z: 


I! 


ill 


!- r- r- 


LL> 


z 








Z 


ZD -J ID 


Z 


z 


z 






>,y 


H ID 




E 






H 




Z Z Z3 




H 


z 


X 


X 


H 


iJ. LL LL 


H 


H 


H 




21 


05 


!ji ij_ 21 


21 


(0 


21 


Li- 




II 


H H LL 






II 


LL. 


Lii 


iji 


z z z 




ui 


ui 


z 


Lii 


H 


C Z lii 


Ui 




LLi 


Lu 




H 


L^ Lc: Z 


CD 




H 


H 


Z 




H H H 


LL lL 


Cl. 


LlI 


iji 




Ll H 'Ji 


m 










lL lL H 


CJ 






























o 
























o o o 


O 




o 




o 


o 


o o o 


o 




o 


o 




o 


o o o 


o 






cvi 


CO 


? 


liO >C 


rn 


rv. 


o 




^^ 




'T u"5 "<5 


N. 


0. 


■tH 


CO 




Ul 


>0 N. OD 


0^ 


•r-i 


■r-i 


•r-i 


■r-i 


•r-i 


■r-i -r-i -rn 


■r-i 












C^hI 





174 



Pro3ram2« VIC Version* 

10 REM CHOOSING AN AIR CONDITIONER - VIC VERS 
ION 

30 DEF FNTRC(X)=INT(X*100)/100 
40 F0RI=1T0N:F0RM=1T012 
50 MI=1E10:J=0 

60 PRINT" {clear} ":PRINTTAB( 05) ; "CHOOSING AN": 

PRINTTAB(4) 7 "AIR CONDITIONER" 
70 PRINT" {03 DOWNIiNSERT TAPE WITH DATA FILE 

•elect* ":PRINT" {02 DOWN}" 
80 PRINT"HIT RETURN AFTER" : PRINT" INSERTING TA 

PE" 

85 GETA$:IFA$<>CHR$(13)THEN85 
90 GOSUB230 

100 PRINT" {02 D0WN}USING DATA FROM" ; EY: PRINT" I 

N CALCULATIONS" 
110 I=N:F0RM=1T012:X=E(I,M) 

1 20 IFX>0THENJ=J+1 : S=S+E ( I / M) : IFX<MITHENMI=X 
130 NEXT:S=S-MI*J 
140 PRINT" {02 down}" 

150 PRINT"SEER OF OLD" : INPUT"AIR CONDITIONER"; 

BS: PRINT "{02 DOWN}" 
160 PRINT"SEER OF NEW" : INPUT"AIR CONDITIONER"; 

NS: PRINT "{02 DOWN}" 
170 PRINT"CURRENT COST OF" : PRINT"ELECTRICITY I 

N cents/": INPUT "KWH =";C0 
180 PRINT" {02 D0WN}ANNUAL SAVINGS OF NEW":PRIN 

T"AIR CONDITIONER" 
190 PRINT "AS COMPARED TO THE OLD UNIT = $"; 
200 PRINTFNTRC(CO*S*BS*(1/BS-1/NS)/100) 
210 END 

220 REM GET DATA, N=YRS, BY=BEG YR, EY=END YR, 

E ( ) =ENERGY , D ( ) =COST 
230 OPENl ,1,0, "ELECT " : INPUT* 1 , N , BY , EY : DIME ( N , 1 

2),D(N,12) 
240 F0RI=1T0N:F0RM=1T012 

250 INPUT#1,E(I,M) ,D(I,M) : NEXT : NEXT : CLOSE 1 : RET 
URN 

260 REM S=SUM OF KILOWATT HRS MINUS BASE KWATT 

HRS DUE TO OTHER USES 
2 70 REM CO=COST IN CENTS/KWATT HR 
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Programs* Microsoft Version* 

10 REM CHOOSING AN AIR CONDITIONER 
30 DEF FNTRC(X)=INT(X*100)/100 
40 FORI=lTON:FORM=lTOl2 
50 MI=1E10:J=0 

60 PRINT" {clear} ":PRINTTAB(13) 7 "CHOOSING AN": 

PRINTTAB( 11 ) ; "AIR CONDITIONER" 
70 PRINT" {03 DOWNIiNSERT TAPE WITH DATA FILE 

•elect' ": PRINT" {02 DOWN}" 
80 INPUT"HIT RETURN AFTER INSERTING TAPE"; I 
90 GOSUB230 

100 PRINT" {02 D0WN}USING DATA FROM" ; EY: PRINT" I 

N CALCULATIONS" 
110 I=N:F0RM=1T012:X=E(I,M) 

1 20 IFX>0THENJ=J+1 : S=S+E ( I , M) : IFX<MITHENMI=X 
130 NEXT:S=S-MI*J 
140 PRINT" {02 down}" 

150 INPUT"SEER OF OLD AIR CONDITIONER" ; BS : PRIN 

T"{02 down}" 
160 INPUT"SEER OF NEW AIR CONDITIONER" ; NS : PRIN 

T"{02 down}" 
170 PRINT"CURRENT COST OF ELECTRICITY IN CENTS 

/":INPUT"KWH =" ; CO iPRINT" {02 DOWN} 
180 PRINT "ANNUAL SAVINGS OF NEW AIR CONDITIONE 

R" 

190 PRINT"AS COMPARED TO THE OLD UNIT = $"; 
200 PRINTFNTRC(CO*S*BS* (I/BS-1/NS) /100 ) 
210 END 

2 20 REM GET DATA, N=YRS, BY=BEG YR, EY=END YR, 

E ( ) =ENERGY , D ( ) =COST 
2 30 OPENl ,1,0, "ELECT" : INPUT* 1 , N , BY , EY : DIME (N , 1 

2),D(N,12) 
240 F0RI=1T0N:F0RM=1T012 

250 INPUT#1,E(I,M) ,D(I,M) : NEXT : NEXT : CLOSEl : RET 
URN 

260 REM S=SUM OF KILOWATT HRS MINUS BASE KWATT 

HRS DUE TO OTHER USES 
2 70 REM CO=COST IN CENTS/KWATT HR 
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ProsramA. Atari Version. 

10 REM CHOOSING AN AIR CONDITIONER ED 



RRI UERSIO 



30 DIM A*(l) 

40 FOR 1=1 TO N:FOR M=l TO 12 
50 MI=1E+10:J=0 

60 PRINT CCLEARJ ": POSITION 15,0:? "E 
C": POSITION 13,1:? "GBBaKS 



Koos i n: 



70 PRINT "£3 DOWN>Insert disk with da 
ta file ' ELECTRIC ": PRINT " C2 DOWN> 

•I 

SO PRINT "Hit lr»a*i»rr af t er " : PR I NT "In 

serting disk";: INPUT A* 
90 GOSUB 230 

lOO PRINT " i2 D0WN3 Using data from "; 

EY:PRINT "in calculations" 
110 I=N:FOR M=l TO 12:X=E<I,M) 
120 IF X>0 THEN J=J+1 : S=S+E < I , M> : IF X 

<MI THEN MI=X 
130 NEXT M:S=S-MI«J 
140 PRINT "t2 DOWN>" 

150 PRINT "SEER OF OLD":PRINT "AIR CO 

NDITIONER" ;: INPUT BS:? :? 
160 PRINT "SEER OF NEW": PRINT "AIR CO 

NDITIONER" ;: INPUT NS:? :? 
170 PRINT "CURRENT COST OF": PRINT "EL 

ECTRICITY IN CENTS/ ": PR I NT "KWH = 

" ; : INPUT CO: ? : ? 
ISO PRINT "ANNUAL SAVINGS OF NEW":PRI 

NT "AIR CONDITIONER" 
190 PRINT "AS COMPARED TO THE OLD UNI 

T = «"5 

200 V=<CO*S*BS* (1/BS-l/NS) /lOO) : V=INT 

(V«100+0.5> /lOO:? V 
210 END 

220 REM GET DATA, N=YRS, BY=BEG YR, E 
Y=END YR, E<)=ENERGY, D ( ) =COST 

230 OPEN #1 , 4, O, "D: ELECTRIC" : INPUT #1 
,N,BY,EY:blM E ( N , 1 2 ) , D ( N , 1 2 > 
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240 FOR 1=1 TO NsFOR M=l TO 12 

250 INPUT #1 , Tl , T2: E < I , M) =T1 s D < I , M> =T 

2sNEXT MsNEXT I s CLOSE #1:RETURN 
260 REM S=SUM OF KILOWATT HRS MINUS B 

ASE KWATT HRS DUE TO OTHER USES 
270 REM CO=COST IN CENTS/KWATT HR 



Prosram 5. Color Computer Version. 

10 REM CHOOSING AN AIR CONDITIONER - COLOR CO 

MPUTER VERSION 
30 DEFFNTRC(X)=INT(X*100)/100 
40 F0RI=lT0NsF0RM=lT012 
50 MI=1E10: J=0:CLS 

60 PRINTTAB(2) ; "CHOOSING AN AIR CONDITIONER": 

F0RI=1T05 : PRINT s NEXT 
70 PRINT"INSERT DISK WITH DATA FILE ' ELECT '" s P 

RINT : PRINT : PRINT 
80 PRINT"HIT RETURN AFTER INSERTING DISK" 
85 A$=INKEY$sIFA$=""THEN85 
90 GOSUB230 

100 PRINT: PRINT: PRINT "USING DATA FROM ";EY:PRI 

NT" IN CALCULATIONS" 
110 I=N:F0RM=1T012:X=E(I,M) 

120 IFX>0THENJ=J+1:S=S+E(I,M) :IFX<MI THENMI=X 
130 NEXT:S=S-MI*J 
140 PRINT: PRINT: PRINT 

150 INPUT"SEER OF OLD AIR CONDITIONER" ; BS : PRIN 

T : PRINT: PRINT 
160 INPUT"SEER OF NEW AIR CONTITIONER" ; NS : PRIN 

T: PRINT: PRINT 
170 INPUT"CURRENT COST OF ELECTRICITY IN CENTS 

/KWH= " ; CO : PRINT : PRINT : PRINT 
180 PRINT"ANNUAL SAVINGS OF NEW" : PRINT"AIR CON 

DITIONER AS COMPARED" 
190 PRINT "TO THE OLD UNIT= $"; 
200 PRINTFNTRC(CO*S*BS*(1/BS-1/NS)/100) 
210 END 

2 20 REM GET DATA, N=YRS, BY=BEG YR, EY=END YR, 

E { ) =ENERGY , D ( ) =COST 
230 OPEN "I" ,#1, "ELECT":INPUT#1,N,BY,EY:DIME(N 
,12),D(N,12) 
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%^ 


4b *T JC/ 


FnRT = l TON • PnRM=l TOl 2 






250 


INPUT* 1 -E(I.M).D(I.M) 2 next : next : close #1 


: RE 








^^^^^^ 




REM S=SUM OF KILOWATT HRS MINUS BASE KWATT 




270 


HRS DUE TO OTHER USES 
REM CO=COST IN CENTS/KWATT HR 














Prosram 6. TI-99 Version. 






1 o 


REM choosing an ai r cond i t i oner , 


TI 






ver si on 




30 


DEF TRC < X > = I NT ( X * 1 00 ) / 1 00 






35 
40 


1^1 = 10-^^10 
CALL CLEAR 






45 


DIM E(10,12>,D(10,12) 






46 


REM currently set up to handle 
yrs of data 


10 




60 


PRINT "choosing an air conditioner 




70 


PRINT "insert a data tape with 


dat 












ou 


PRINT "press any key to continue" 


85 


GOSUB 260 






90 


GOSUB 230 






lOO 


PRINT : : : : 




105 


PRINT "using ";C«;" data" 






108 


PRINT "from ";EY;" in calculation 




no 


s " : : I : 
I=N 






112 


FOR M=l TO 12 






114 
116 


X=E ( I , M) 

IF X<=0 THEN 130 






1 18 


J = J + 1 






120 


3 = S+E < I , M) 




122 


IF X>MI THEN 130 






125 


MI = X 






130 


NEXT M 




135 


S=S-MI * J 






140 


PRINT : : : : 
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150 INPUT "seer of old air conditione 

r? "sBS 
155 PRINT : : : 

160 INPUT "seer o-f new air conditione 

r? ":NS 
165 PRINT : : : 

170 INPUT "current cost of electricit 

y in cents/ kwh=? " : CO 
175 PRINT : : ; 

180 Y = TRC <CO«S»BS» < 1 /BS-1 /NS> / lOO) 
190 PRINT "annual savings of new 

€7 SPACESJair conditioner as comp 
ared to the old unit= *";Y 
200 END 

220 REM get data, c*=file name, n=yrs 
, by=beg yr , ey=end yr , e ( ) =ener gy , 

d<)=C05t 

230 OPEN #2: "CSl ", INTERNAL, INPUT ,FIX 

ED 128 
235 INPUT #2: C*, N, BY, EY 
240 FOR 1=1 TO N 

242 INPUT #2: E < I , 1 ) , D < I , 1 ) , E < I , 2) , D < I 
,2>,E(I,3),D<I,3),E<I,4),D(I,4>,E 
<I,5),D(I,5>,E(I,6),D(I,6),E<I,7) 
, D < I , 7) 

244 INPUT #2: E < I , 8> , D ( I , 8) , E ( I , 9) , D < I 
,9),E<I,10),r>(I,10>,E<I,ll),D(I,l 
l),E<I,i2>,b<I,i2) 

246 NEXT I 

248 CLOSE #2 

250 RETURN 

260 CALL KEY <3, KEY, ST) 
270 IF ST=0 THEN 260 
280 RETURN 

290 REM s=sum of kilowatt hrs minus b 

ase kwatt hrs due to other uses 
300 REM co=co5t in cents/kwatt hr 
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Program 7« Apple Version* 

10 REM CHOOSING AN AIRCONDITIONER APPLE VERSI 
ON 

20 D$=CHR$(4):TEXT:H0ME 

30 DEF FNTRC(X)=INT(X*100)/100 

40 F0RI=1T0N:F0RM=1T012 

50 MI=1E10:J=0 

60 PRINTTAB(05) 7 "CHOOSING AN" : PRINTTAB( 4 ) ; "AI 

RCONDITIONER" 
70 PRINT: PRINT: PRINT" INSERT DISK WITH DATA FI 

LE • ELECT • " 

80 PRINT"HIT RETURN AFTER" : PRINT "INSERTING TA 
PE" 

85 GETA$:IFA$<>CHR$(13)THEN85 
90 GOSUB230 

100 PRINT:PRINT "USING DATA FROM" ; EY: PRINT" IN " 

CALCULATIONS" 
110 I=N:F0RM=1T012:X=E(I,M) 

1 20 IFX>0THENJ=J+1 : S=S+E ( I / M) : IFX<MITHENMI=X 
130 NEXT:S=S-MI*J 
140 PRINT: PRINT: PRINT 

150 PRINT"SEER OF OLD" : INPUT"AIRC0NDITI0NER" ; B 

S: PRINT: PRINT 
160 PRINT"SEER OF NEW" : INPUT" AIRCONDITIONER" ; N 

S: PRINT: PRINT 
170 PRINT"CURRENT COST OF" : PRINT"ELECTRICITY I 

N cents/": INPUT "KWH =",-00 
180 PRINT: PRINT: PRINT "ANNUAL SAVINGS OF NEW":P 

RINT"AIRCONDITIONER" 
190 PRINT "AS COMPARED TO THE OLD UNIT = $"; 
200 PRINTFNTRC(CO*S*BS* (1/BS-1/NS)/100) 
210 END 

220 REM GET DATA, N=YRS, BY=BEG YR, EY^END YR, 

E ( ) =ENERGY , D ( ) =COST 

230 PRINT D$7"0PEN ELECT":PRINT D$7"READ ELECT 
II 

234 INPUT N,BY,EY:DIME(N,12),D(N,12) 
240 F0RI=1T0N:F0RM=1T012 

250 INPUT E(I,M),D(I,M) :NEXT:NEXT:PRINT D§;"C:L 

OSE ELECT": RETURN 
260 REM S=SUM OF KILOWATT HRS MINUS BASE KWATT 

HRS DUE TO OTHER USES 
2 70 REM CO=COST IN CENTS/KWATT HR 
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In a typical home, the sunlight transmitted through the windows 
accounts for 10-14% (ref. 1) of the total air conditioning cost. This 
can be equal to the savings accrued by installing storm windows or 
adding attic insulation in some regions of the United States. 
Furthermore, shielding windows by planting trees or using solar 
screens is usually much less expensive than adding insulation or 
storm windows (especially if you treat only the windows which 
need shading). The window analysis program described here will 
allow you to calculate how much is saved by shading windows in 
the summer and augmenting the winter heating by allowing 
sunlight into the home. Also, the program can be used for planning 
solar collector systems, designing greenhouses, evaluating the 
merit of adding skylights, or enclosing porches with glass. 

As shown in Tables 1 and 2, the user inputs the latitude, the 
latitude, the size of the window, the tilt of the window from the 
horizontal, the azimuth (compass directions) that the window 
faces, and chooses either heating or cooling analysis to be 
performed. If cooling analysis is desired, the user inputs the 
capacity (tons) of the cooling system, the current it draws (amps), 
and the cost of the electricity. If the user chooses heating analysis, 
he must input the cost of natural gas. Both fuel savings, economic 
savings and the accrued energy in BTU/sq. ft. are printed by 
month and season. Because the window azimuth and elevation 
angle permit any angle window to be analyzed, a variety of 
applications is possible. In my residence, the east-facing windows 
cause almost $100 in excess cooling cost, whereas the winter gain 
is about a factor of three smaller. At the low latitude of my 
residence, south-facing windows do not contribute significantly to 
the heat load in the summer, but are important in reducing heating 
cost when the sun is lower in the southern sky. 

The Calculations 

The program uses eight basic equations, which describe the 
physical amount of sunlight and the angle at which it falls on the 
window's surface (refs. 2 and 3). 
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The day of the year (DOY) is calculated from the month (M) 
and the day of month (D). The solar declination (DE) is calculated 
from the day of year. The cosine of the zenith angle of the sun (Al) 
is calculated from the solar declination, the hour angle, and solar 
elevation angle (AL). The direct solar irradiance is calculated from 
the apparent solar irradiance at zero air mass (AO), the 
atmospheric extinction coefficient (BETA), and solar elevation 
angle (AL). The diffuse irradiance is calculated from the tilt of the 
window (Tl) and the direct solar flux (GN). The cosine of the angle 
between the vector perpendicular to the window and the vector to 
the sun is calculated, based on the window tilt (Tl), the window 
azimuth (Bl), the sun's azimuth (AZ), and the sun*s zenith angle (Z). 
Finally, the total flux transmitted through the window (GL) is 
calculated and summed by month (TT) and by season (SL). 

The integration of transmitted energy during a day is 
accomplished in the FOR loop from lines 370 to 712. In this loop, 
calculations are made during a day for hour angles (HE) of minus 
120 degrees (4 a.m. local solar time) to plus 120 degrees (8 p.m. 
local solar time). It is assumed that this calculation is valid for ten 
days. The integration by month is accomplished by calculating 
three ten-day intervals per month. 

The conversion from energy to utility usage is made 
assuming that 1 100 BTU are produced by each cu. ft. of natural gas 
and that air conditioner run time can be calculated from BTUs by 
the factor 12,000 BTU/(hr. ton). Kilowatt hours are calculated from 
volts times amps times time divided by 1000. The program is 
designed to be used at any latitude (except 0). However, if 
southern hemisphere calculations are desired, the seasons must be 
switched (the starting month M for heating =11, and for cooling 
= 5). Similarly, the lengths of the heating and cooling seasons 
must be modified from 152 days and the printing routine should be 
modified for heating and cooling seasons appropriate to the long 
season regions. Special transmission functions for double glazed 
glass or solar film may be substituted as desired for the subroutine 
in lines 2000-2050. 
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2. Klen , David C. "Solar Specs." Microcomputing, March 1980, pp. 68-70. 
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Table 1 * Heatins Savings Due To Window Heating* 

WINDOW ANALYSIS - SOLAR TRANSMISSION 

LATITUDE (DEG)? 30 

ANALYSIS DESIRED: 

1) HEATING 

2) COOLING 

? 1 

# SQ FT OF WINDOWS FOR EVALUATION? 70 

WINDOW TILT FROM HORZ, NORMAL =90? 90 
WINDOW AZIMUTH (N=0,S=180), DEG? 90 

COST OF NATURAL GAS (CENTS/CU FT)? .37 



MONTH = 11 TOTAL = 19554.29 BTU/(SQ FT) 

NATURAL GAS SAVED = 12.44 100 CU FT 
DOLLAR SAVINGS = $ 4.6 



MONTH = 12 TOTAL = 17299.96 BTU/(SQ FT) 

NATURAL GAS SAVED = 11 100 CU FT 
DOLLAR SAVINGS = $ 4.07 



MONTH = 1 TOTAL = 17660.93 BTU/(SQ FT) 

NATURAL GAS SAVED = 11.23 100 CU FT 
DOLLAR SAVINGS = $ 4.15 



MONTH = 2 TOTAL = 21405.49 BTU/(SQ FT) 

NATURAL GAS SAVED = 13.62 100 CU FT 
DOLLAR SAVINGS = $ 5.04 



MONTH = 3 TOTAL = 25082.35 BTU/(SQ FT) 

NATURAL GAS SAVED = 15.96 100 CU FT 
DOLLAR SAVINGS = $ 5.9 



MONTH = 4 TOTAL = 26858.1 BTU/(SQ FT) 

NATURAL GAS SAVED = 17.09 100 CU FT 
DOLLAR SAVINGS = $ 6.32 



ANNUAL SAVINGS: 

NATURAL GAS SAVED = 81.36 100 CU FT 
DOLLAR SAVINGS = $ 30.1 



Table 2. Extra Cooling Due To Window Heating. 

WINDOW ANALYSIS - SOLAR TRANSMISSION 

LATITUDE (DEG)? 30 

ANALYSIS DESIRED: 

1) HEATING 

2) COOLING 

? 2 

# SQ FT OF WINDOWS FOR EVALUATION? 70 

WINDOW TILT FROM HORZ, NORMAL = 90? 90 
WINDOW AZIMUTH (N=0,S=180), DEG? 90 
AIR CONDITIONER TONS? 4 
ENTER AMPS OF AIR CONDITIONER 

(IF NOT KNOWN HIT <RETURN>)? 30 
COST FOR ELECTRICITY, CENTS/KWH? 6.55 



MONTH = 5 TOTAL = 27086.46 BTU/(SQ FT) 

POWER EXPENDED = 260.7 KWH 

COOLING COST DUE TO WINDOW = 17.07 DOLLARS 



MONTH = 6 TOTAL = 27118.47 BTU/(SQ FT) 

POWER EXPENDED = 261.01 KWH 

COOLING COST DUE TO WINDOW = 17.09 DOLLARS 



MONTH = 7 TOTAL = 26652.02 BTU/(SQ FT) 

POWER EXPENDED = 256.52 KWH 

COOLING COST DUE TO WINDOW = 16.8 DOLLARS 



MONTH = 8 TOTAL = 26268.8 BTU/(SQ FT) 

POWER EXPENDED = 252.83 KWH 

COOLING COST DUE TO WINDOW = 16.56 DOLLARS 



MONTH = 9 TOTAL = 25223.88 BTU/ (SQ FT) 

POWER EXPENDED = 242.77 KWH 

COOLING COST DUE TO WINDOW = 15.9 DOLLARS 



MONTH = 10 TOTAL = 23689.78 BTU/(SQ FT) 

POWER EXPENDED = 228.01 KWH 

COOLING COST DUE TO WINDOW = 14.93 DOLLARS 



ANNUAL SAVINGS: 

POWER EXPENDED = 1501.87 KWH 

COOLING COST DUE TO WINDOW = 98.37 DOLLARS 
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Program 2. VICVersion* 

10 REMWINDOW HEATING ANALYSIS VIC VERSION 

3 REM PROGRAM CALCULATES SOLAR RADIATION TRA 
NSMITTED 

31 REM THROUGH A WINDOW GIVEN LATITUDE, AZIMU 

TH AND ZENITH AND 
3 2 REM ANGLE OF WINDOW 

3 5 REM AL=SOLAR ALTITUDE, HE=HR ANGLE, DE=DEC 
LINATION 

36 REM TR=TRANSMISSION,SL=SEASONAL TOTAL BTU/ 

SQ FT, TT=MONTHLY 

37 REM TM=TIME(HRS) ,AO=APPARENT SOLAR IRRADIA 

NCE AT ZERO AIR MASS 

38 REM BETA=ATMOSPHERIC EXTINCTION COEFFICIEN 

T 

44 PRINT" {CLEAR} WINDOW ANALYSIS{ DOWN} 

SOLAR TRANSMISSION{DOWN} " 
48 PI=3.14159:P2=PI/2:DIMBETA(12) ,A0(12) 

50 DEFFNRAD(A) =A*PI/180 

51 DEFFNASM(B)=ATN(B/(SQR(1-BT2) ) ) 

52 DEFFNACS(C) =ATN ( (SQR(1-CT2) )/C) 

53 DEFFNDEG{D)=INT( (D*180)/PI) 

54 DEFFNTRC(E) =INT(E*100)/100 

55 DEFFNFUN(F) =F*180/PI 

2 00 PRINT" LATITUDE (DEG) "; : INPUTLAT : L1=LAT : LAT= 
FNRAD(LAT) 

223 PRINT" { DOWN }ANALAYSIS DESIRED{D0WN} ": PRINT 

" 1 ) HEATING" : PRINT" 2) COOLING" 
225 M=11:INPUTX:D=1:IFX=2THENM=5 
2 26 I FM< 3THEND0Y=M* 31-3 1+D : G 0T02 4 
227 DOY=INT(M*30.6-32.3+D) :REM DAY OF YEAR 
240 F0RI=lT012sREADA0(I) , BETA ( I ) : NEXT 

250 PRINT" {DOWN} # SQ FT OFWINDOWS FOR EVALUATI 
ON": INPUTFT 

260 PRINT" {DOWN} WINDOW TILT FROM HORZ , NORMAL " 
= 90": INPUTTL:T1=TL 

261 PRINT" {DOWN}WINDOW AZIMUTH (N=0,S=180), DE 
G" : INPUTBI :B1=BI :TL=FNRAD{TL) 

262 BI=FNRAD(BI) :IFX=1THEN310 

263 PRINT"AIRCONDITIONER TONS" ; : INPUTT:T=T*120 
00 
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264 SE=25:PRINT"ENTER AMPS OF AIRCONDITIONER^ 

IF NOT KNOWN HIT <CR> " : INPUTSE 
267 PRINT"COST FOR ELECTRICITY, CENTS/KWH" : INP 

UTC:GOT0335 

310 PRINT" {DOWNlCOST OF NATURAL GAS (CENTS/CU 

FT) ":INPUTC 
335 PRINT" {CLEAR} WINDOW ANALYSIS" 
340 PRINT" LATITUDE = ";L1;"DEG" 

345 PRINT" {DOWN} WINDOW ANGLE "; Tl ; "DEG" : PRINT" 
WINDOW AZ= ";B1;" DEG" 

346 PRINT" {DOWN}WAIT" 
348 PRINT:TT=0:FORJ=1TO3 

3 50 X=FNRAD(DOY-82)*180/182.5:X=23.5*SIN(X) : HE 

=-135 

355 M=1:IFD0Y>31THENM=INT( (DOY+32 . 3 ) /30 . 6 ) 
360 DE=FNRAD(X) 

370 FORI=0TO16:AM=4+I:HE=HE+15:AN=FNRAD(HE) 
410 A1=C0S(DE) *COS(AN) *COS (LAT) +SIN (DE) *SIN(LA 
T) 

4 20 X=FNACS ( Al ) : AL=P2-X 
4 25 IFAL>P2THENAL=AL-PI 

440 A2=C0S(DE) *SIN(AN)/COS(AL) 

445 X=(COS(DE) *COS (AN) -SIN (AN) *COS(LAT) )/(COS( 

AN) *SIN(LAT) ) 
4 50 AZ=FNASN (A2) +PI : Z=P2-AL: IFX<0THENAZ=PI-AZ 
470 IFAL<FNRAD ( 1 ) THENGN=0 :GOTO490 
480 GN=AO(M)/EXP(BETA(M)/SIN(AL) ) 
490 GD=GN*.75*(l+COS(TL) )/12 

560 A3=C0S(Z) *COS(TL)-l-SIN(Z) *SIN(TL) *COS(AZ) *C 
OS(BI) +SIN(Z) *SIN(TL) *SIN(AZ) *SIN(BI) 

575 IN=FNACS(A3) : IFIN<0THENTR=0 :GOTO600 
590 GOSUB2000 

600 GL= (GN*A3*TR+GD) *10 : TT=TT+GL : SL=SL+GL 

712 NEXT:DD=DD+10:DOY=DOY+10:IFDOY>365THENDOY= 
DOY-365 

713 NEXT:PRINT"MONTH= " ; M; "TOTAL=" : PRINTFNTRC ( 
TT) ;"BTU/(SQ FT) " 

715 GOSUB719:IFDD<152THEN348 

717 TT=SL:PRINT" " 

718 PRINT"ANNUAL SAVINGS{DOWN} " :GOSUB719 :RUN48 

719 IFM>4ANDM<11THEN800 

7 20 P=TT*FT/110000:PRINT"NATURAL GAS SAVED=":P 
RINTFNTRC(P) ; " 100 CU FT" 
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7 30 PRINT"DOLLAR SAVINGS ";FNTRC(P*C) 

740 PRINT" {DOWN} ":PRINT:RE 

TURN 

800 TM=TT*FT/T:P=220*SE*TM/1000 
805 PRINT"POWER EXPENDED " ; FNTRC ( P) ; " KWH" 
810 PRINT"COOLING COST DUE TO WINDOW= " : PRINTFN 
TRC(C*P/100) /"DOLLARS" 

8 20 PRINT" {DOWN} {DOWN}" 

1000 RETURN 

2000 REM GET TRANSMITTANCE FOR SINGLE GLAZED GL 
ASS 

2 010 IFIN<.87266THENTR=.87:GOTO2100 
2020 IFIN>1.2218THEN2050 

2030 CI=(IN-.8726639)*4.5:TR=.16*COS(CI)+.68:GO 
TO2100 

2050 TR=3. 0599-1. 948*IN:IFTR<0THENTR=0 
2100 RETURN 

4 000 DATA390,. 142, 385, .144,376, .156,360, .18,350 

, .196,345, .205,344, .207 
4002 DATA351,. 201, 365, .177,378, .16,387, .149,391 

, .142 

5000 END 



Program 3. Microsoft Version. 

10 REM WINDOW HEATING ANALYSIS 

30 REM PROGRAM CALCULATES SOLAR RADIATION TRA 

NSMITTED 

31 REM THROUGH A WINDOW GIVEN LATITUDE, AZIMU 

TH AND ZENITH AND 

35 REM AL=SOLAR ALTITUDE, HE=HR ANGLE, DE=DEC 

LINATION 

36 REM TR=TRANSMISSION,SL=SEASONAL TOTAL BTU/ 

SQ FT, TT=MONTHLy 

37 REM TM=TIME(HRS) ,AO=APPARENT SOLAR IRRADIA 

NCE AT ZERO AIR MASS 

38 REM BETA=ATMOSPHERIC EXTINCTION COEFFICIEN 

T 

44 PRINT" {CLEAR} WINDOW ANALYSIS { 

DOWN} SOLAR TRA 

NSMISSION{DOWN}" 

48 PI=3.14159:P2=PI/2:DIMBETA(12) ,A0(12) 

50 DEFFNRAD(A) =A*PI/180 
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51 DEFFNASN(B)=ATN(B/(SQR(1-BT2) ) ) ^ 

52 DEFFNACS(C)=ATN( (SQR(1-CT2) )/C) 

53 DEFFNDEG(D) =INT ( (D*180)/PI) 

54 DEFFNTRC (E) =INT (E*100) /lOO w 

55 DEFFNFUN(F) =F*180/PI 

200 PRINT"LATITUDE (DEG) : INPUTLAT : L1=LAT : LAT= ^ 
FNRAD (LAT) 

223 PRINT" {DOWN} ANALAYSIS DES IRED {DOWN} V : PRINT 

"1) HEATING" :PRINT"2) COOLING" w 

225 M=ll: INPUTX:D=1: IFX=2THENM=5 

226 IFM<3THENDOY=M*31-31+D:GOTO240 ^ 

227 DOY=INT(M*30.6-32.3+D) :REM DAY OF YEAR ^ 
240 F0RI=1T012:READA0(I) ,BETA(I) :NEXT 

250 INPUT" {DOWN} # SQ FT OFWINDOWS FOR EVALUATI w 
ON";FT 

260 INPUT" {DOWN}WINDOW TILT FROM HORZ , NORMAL= 

90";TL:T1=TL w 

261* INPUT" {DOWN}WINDOW AZIMUTH (N=0,S=180), DE 

G";BI:B1=BI:TL=FNRAD(TL) ^ 

262 BI=FNRAD(BI) :IFX=1THEN310 

263 INPUT"AIRCONDITIONER TONS" ; T : T=T*12000 

264 SE=25:PRINT"ENTER AMPS OF AIRCONDITIONER" : w 
INPUT" IF NOT KNOWN HIT <CR>";SE 

267 INPUT"COST FOR ELECTRICITY, CENTS/KWH" ; C : G 
OT0335 

310 INPUT" {DOWN}COST OF NATURAL GAS (CENTS/CU 

FT) " ;C w 

335 PRINT" {CLEAR} WINDOW ANALYSIS" 

340 PRINT" {DOWN} LATITUDE = ";L1;"DEG ^ 

II 

344 PRINT" WINDOW ANGLE ";T1;"DEG" 

345 PRINT" WINDOW AZ= ";B1;" DEG" w 

346 PRINTTAB(15) ;"{04 DOWN}WAIT{05 UP}" 
348 PRINT:TT=0:FORJ=lTO3 

350 X=FNRAD(DOY-82) * 180/182. 5: X=23.5*SIN (X) :HE 
= -135 

355 M=l: IFD0Y>31THENM=INT ( (DOY+32.3)/30,6) ^ 
360 DE=:FNRAD(X) ^ 
370 FORI=0TO16:AM=4+I :HE=HE+15:AN=FNRAD(HE) 
410 A1=C0S(DE)*C0S(AN)*C0S{LAT)+SIN(DE) *SIN(LA w 
T) 

420 X=FNACS (Al) :AL=P2-X ^ 
425 IFAL>P2THENAL=AL-PI ^ 
440 A2=C0S (DE) *SIN (AN)/COS (AL) 

445 X=(COS(DE)*COS(AN)-SIN(AN)*COS(LAT) )/(COS( w 
AN)*SIN(LAT) ) 
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450 AZ=FNASN (A2) +PI : Z=P2-AL : IFX<OTHENAZ=PI-AZ 
470 IFAL<FNRAD (l)THENGN=0:GOTO490 
480 GN=AO (M) /EXP (BETA (M) /SIN (AL) ) 
490 GD=GN*.75* (1+C0S(TL) )/12 

560 A3=C0S (Z) *COS (TL) +SIN (Z) *SIN (TL) *COS (AZ) *C 
OS(BI) +SIN(Z) *SIN(TL) *SIN(AZ) *SIN(BI) 

575 IN=FNACS(A3) : IFIN<OTHENTR=0 : GOTO600 
590 GOSUB2000 

600 GL= (GN*A3*TR+GD) *10 : TT=TT+GL : SL=SL+GL 

712 NEXT:DD=DD+10:DOY=DOY+10: IFDOY>365THENDOY= 
DOY-365 

713 NEXT:PRINT"MONTH= " ;M; "TOTAL=" ; FNTRC (TT) ; " 
BTU/(SQ FT) " 

715 GOSUB719:IFDD<152THEN348 

717 TT=SL: PRINT" 



718 PRINT"ANNUAL SAVINGS {DOWN} ": GOSUB719 : RUN48 

719 IFM>4ANDM<11THEN800 

720 P=TT*FT/110000:PRINT"NATURAL GAS SAVED=";F 
NTRC(P) 100 CU FT" 

730 PRINT"SAVINGS =$" ;FNTRC (P*C) 

740 PRINT" 

": RETURN 

800 TM=TT*FT/T:P=220*SE*TM/1000 

805 PRINT"POWER EXPENDED ";FNTRC(P);" KWH" 

810 PRINT"COOLING COST DUE TO WINDOW= $"; FNTRC 

(C*P/100) 

820 PRINT" 

1000 RETURN 

2000 REM GET TRANSMITTANCE FOR SINGLE GLAZED GL 
ASS 

2010 IFIN<.87266THENTR=.87:GOTO2100 
2020 IFIN>1.2218THEN2050 

2030 CI= (IN-. 8726639) *4. 5: TR=.16*C0S (CI) +.68: GO 
TO2100 

2050 TR=3.0599-1.948*IN: IFTR<OTHENTR=0 
2100 RETURN 

4000 DATA390, .142,385, .144,376, .156,360, .18,350 

,.196,345, .205,344, .207 
4002 DATA351, .201,365, .177,378, .16,387, .149,391 

,.142 

5000 END 
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Pro3ram4. Atari Version. 

lO REM «**WINDOW HEATING ANALYSIS*** 

30 REM PROGRAM CALCULATES SOLAR 

SPACES>RADIATION TRANSMITTED 

31 REM THROUGH A WINDOW GIVEN LATITUD 
E, €Q SPACESJAZIMUTH AND ZENITH. AND 

32 REM ANGLE OF WINDOW-DAVID PITTS 

£8 SPACES> 16011 STONEHAVEN DR HOUS 
TON TX 77059 

35 REM AL=SOLAR ALT I TUDE , HE=HR ANGLE, 
€10 SPACES>DE=DECLINATION 

36 REM TR=TRANSMISSION, SL=SEASONAL 
tl2 SPACES>TOTAL BTU/SQ FT, TT=MONT 
HLY 

37 REM TM=TIME (HRS) , AO=APPARENT SOLAR 
tlO SPACES> IRRADI ANCE AT ZERO AIR M 
ASS 

38 REM BETA=ATMOSPHERIC EXTINCTION 
€13 SPACES>COEFFICIENT 

44 PRINT CHR*(125) 

45 ? "isociiSECBCCicaQaoaBaBaGiBSC^BGE^crtia 



M3C33IQ 



46 POKE 85,14 

47 ? s? 

48 PI=3. 14159sP2=PI/2sDIM BETA<12),A0 
(12) : RAD 

50 FRAD=100 

51 FASN=110 

52 FACS=120 

53 FDEG=130 

54 FTRC=140 

55 FFUN=150 
60 GOTO 200 

100 V=V*PI/180:RETURN 
110 V=ATN (V/ (SQR < 1-V*V) )) s RETURN 
120 V=ATN < <SQR < 1-V*V) ) /V) ! RETURN 
130 V=INT ( <V*180) /PI ) s RETURN 
140 V=INT (V*100) /lOO: RETURN 
150 V=V«180/PI : RETURN 

200 PRINT "LATITUDE (DEG) ••;! INPUT LAT: 
L1=LAT: V=LAT: GOSUB FRAD:LAT=V 
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223 PRINT "ANALYSIS DES I RED " : PR I NT "1 
) HEATING" ! PRINT "2) COOLING" 

225 H=ll: INPUT X:D=lsIF X=2 THEN M=5 

226 IF M<3 THEN D0Y=M«3 1 -3 1 +D : GOTO 24 
O 

227 DOY=INT (M»30. 6-32. 3+D) : REM DAY OF 

YEAR 

240 FOR 1=1 TO 12:READ A : AO ( I ) =A s READ 

B:BETA<I)=B:NEXT I 
250 PRINT "#SQ FT OF WINDOW FOR EVALU 
ATION"; s INPUT FT:? 

260 ? :? "WINDOW TILT FROM HORIZ, NOR 
MAL=90"s INPUT TIsTl=TI 

261 ? "WINDOW AZIMUTH<N=0,S=180) ,DE6" 
;s INPUT BI : B1=BI s V=TI : GOSUB FRADs 
TI=V 

262 V=BI:GOSUB FRADsBI=V:IF X=l THEN 
310 

263 ? "AIR CONDITIONER TONS";! INPUT T 
! T=T»12000 

264 ? "ENTER AMPS OF AIR CONDITIONER" 
:? "IF NOT KNOW ENTER 0";s INPUT S 
E 

265 IF SE<1 THEN SE=25 

267 ? "COST FOR ELECTRICITY, CENTS/KW 

H"; I INPUT CsGOTO 335 
310 ? :? "COST OF NATURAL GAS (CENTS/ 

CU FT) " ; ! INPUT C 
335 ? :? :? :? "WINDOW ANALYSIS BY DI 

RECT SUNLIGHT" 
340 ? "LATITUDE=" ; LI ; " DEG" 
345 ? :? "WINDOW ANGLE ";T1;" DEG 

«3 SPACES>WINDOW AZ=";B1;" DEG" 
348 ? sTT=0:FOR J=l TO 3 

350 V=DOY-82! GOSUB FRAD s X=V« 1 SO/ 1 82 . 5 

: X=23.5»SIN<X) :HE=-135 
355 M=1:IF D0Y>31 THEN M= I NT < < DO Y+32 . 

3) /30. 6) 
360 V=Xs GOSUB FRAD:DE=V 

370 FOR 1=0 TO 16: AM=4+I : HE=HE+15: V=H 
E: GOSUB FRAD:AN=V 
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410 Al=COS (DE) «COS <AN) »COS < LAT ) +S I N ( D 

E) tSIN (LAT) 
420 V=Als60SUB FACS: X=V! AL=P2-X 
425 IF AL>P2 THEN AL=AL-PI 

440 A2=C0S (DE) »SIN <AN) /COS (AL) 

441 IF A2<-1 THEN A2=-0.9999 

442 IF A2>1 THEN A2=0.9999 

445 X= (COS (DE) *COS (AN) -SIN (AN) «COS (LA 

T) ) / (COS (AN) «SIN (LAT) ) 
450 V=A2s60SUB FASN : AZ= V+P I : Z=P2-AL : I 

F X<0 THEN AZ=PI-AZ 
470 IF AL<PI/180 THEN GN=0:60TO 490 
480 GN=AO (M) /EXP (BETA (M) /SIN (AL) ) 
490 6D=6N*0. 75* ( 1+C0S(TI ) ) /12 
560 A3=C0S (Z) «COS (TI )+SIN(Z)»SIN(TI)* 

COS(AZ) «COS(BI) 
570 A3=A3+SIN(Z) »SIN(TI)»SIN(AZ)»SIN( 

BI ) 

575 V=A3sG0SUB FACS:IN=V!lF IN<0 THEN 

TR=OseOTO 600 
590 GOSUB 2000 

600 GL= (GN*A3*TR+GD) tlOs TT=TT+GL : SL = S 
L+GL 

712 NEXT I:DD=DD+10!D0Y=D0Y+10s IF DOY 
>365 THEN D0Y=D0Y-365 

713 NEXT JsPRINT " M0NTH= " ; M ; " TOTAL= 
";: V=TT: GOSUB FTRC: PRINT V;" BTU/ 
(SQ FT) " 

715 GOSUB 719: IF DD<152 THEN 348 

717 TT=SL:? " 



718 ? "ANNUAL SAVINGS!":? : GOSUB 719: 
FOR 1=1 TO 1000:NEXT I : CLR : GOTO 
48 

719 IF M>4 AND M< 1 1 THEN 800 

720 P=TT*FT/1 lOOOO: ? "NATURAL GAS SAV 
ED ";:V=P:GOSUB FTRC: PRINT V;" 10 
O CU FT" 

730 PRINT "DOLLAR SAVINGS ";:V=P»C:GO 

SUB FTRC:PRINT V 
740 ? :? " 
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750 ? : RETURN 

800 TM=TT»FT/T: P=220*SE«TM/1000 

805 ? "POWER EXPENDED ";:V=P:BOSUB FT 

RCs? V;" KWH" 
810 ? "COOLING COST DUE TO WINDOW *"; 

: V=C«P/100: BOSUB FTRCs? V 
820 ? !? " 



830 ? 

1000 RETURN 

2000 REM GET TRANSM I TTANCE FOR SINGLE 

GLAZED GLASS 
2010 IF IN<0. 87266 THEN TR=0.87:G0T0 
2100 

2020 IF IN>1.2218 THEN 2050 

2030 CI = < I N-0. 8726639) *4. 5: TR=0. 16«C0 

S (CI > +0. 68: GOTO 2100 
2050 TR=3. 0599-1 . 948»IN! IF TR<0 THEN 

TR=0 
2100 RETURN 

4000 DATA 390, . 142, 385, . 144, 376, . 156, 
360, . 18, 350, .196, 345, . 205, 344, . 2 
07 

4002 DATA 35 1 , . 20 1 , 365 , . 1 77 , 378 , . 1 6 , 3 

87, . 149, 391 , . 142 
5000 END 



Prosram 5. Color Computer Version. 

10 REM*WINDOW HEATING ANALYSIS* 

20 REM PROGRAM CALCULATES SOLAR RADIATION TRA 

NSMITTED THROUGH A WINDOW 
30 REM GIVEN LATITUDE, AZIMUTH AND ZENITH AND 

ANGLE OF WINDOW 
3 5 REM AL=SOLAR ALTITUDE , HE=HR ANGLE ,DE=DECLI 

NATION 

36 REM TR=TRANSMISSION,SL=SEASONAL TOTAL BTU/ 

SQ FT,TT=MONTHLY 

37 REM TM=TIME(HRS) ,AO=APPARENT SOLAR IRRADIA 

NCE AT ZERO AIR MASS 

38 REM BETA=ATMOSPHERIC EXTINCTION COEFFICIEN 

T 
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44 CLS 

45 PRINTTAB( 8) "WINDOW ANALYSIS" : PRINTTAB ( 7 ) "S 

OLAR TRANSMISSION" 

46 PRINTTAB(10) "D. E. PITTS" 

47 PRINT:PRINT 

48 PI=3.14159:P2=PI/2:DIMBETA(12) ,A0(12) 

50 DEFFNRAD(A) =A*PI/180 

51 DEFFNAZN(B) =ATN(B/SQR(1-B 2)) 

52 DEFFNACS(C) =ATN( (SQR(1-C 2))/C) 

53 DEFFNDEG(D)=INT( (D*180)/PI) 

54 DEFFNTRC(E) =INT(E*100)/100 

55 DEFFNFUN(F) =F*180/PI 

200 INPUT"LATITUDE(DEG) "; LAT : L1=LAT : LAT=FNRAD ( 
LAT) 

2 23 PRINT" ANALYSIS DESIRED" : PRINT" 1) HEATING" 

: PRINT" 2) COOLING" 
2 25 M= 11 : INPUTX : D=l : I FX=2THENM= 5 
2 26 IFM<3THENDOY=M*31-31+D:GOTO240 

227 DOY=INT(M*30.6-32.3+D) :REM DAY OF YEAR 

228 PRINT 

240 F0RI = 1T012:READA0(I) ,BETA(I) :NEXT 

2 50 INPUT" # SQ FT OF WINDOW FOR EVALUATION" ; FT 

: PRINT 

260 INPUT"WINDOW TILT FROM HORZ , NORMAL=90" ; TI 
:T1=TI 

261 INPUT"WINDOW AZIMUTH(N=0,S=180) , DEG";BI:B 
1=BI :TI=FNRAD(TI) 

262 BI=FNRAD(BI) :IFX=1THEN310 

263 INPUT"AIRCONDITIONER TONS" ; T : T=T* 12000 

264 INPUT"ENTER AMPS OR AIRCONDITIONER, IF NOT 

KNOWN ENTER 0";SE 

265 IFSE<1THENSE=25 

267 INPUT"COST FOR ELECTRICITY, CENTS/KWH" ; C :G 
OT0335 

310 PRINT: INPUT"COST OF NATURAL GAS (CENTS/CU 
FT) ";C 

3 35 CLS :PRINTTAB( 5) "WINDOW HEATING ANALYSIS" :P 

RINTTAB(7) "BY DIRECT SUNLIGHT" 
340 PRINTTAB( 6) "LATITUDE = ";L1;"DEG" 
345 PRINTTAB (6) "WINDOW ANGLE= "; Tl ; "DEG" : PRINT 

TAB (6) "WINDOW AZ= ";B1;"DEG" 
348 TT=0:FORJ=1TO3 

3 50 X=FNRAD(DOY-82) *180/182 . 5 : X=23 . 5*SIN (X) : HE 
= -135 

355 M=1:IFD0Y>31THENM=INT( (DOY+32 . 3 ) /30 . 6 ) 
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360 DE=FNRAD(X) 

3 70 FORI=0TO16:AM=4+I:HE=HE+15:AN=FNRAD(HE) 

372 IFPOINT(0,0)=-1 OR POINT(0,0)=0 THENSET(0, 
0,1) :GOTO410 

373 IFPOINT(0,0)=1THENRESET(0,0) 

410 A1=C0S(DE) *COS(AN) *COS ( LAT) -l-SIN (DE) *SIN(LA 
T) 

420 X=FNACS(A1) :AL=P2-X 
425 IFAL>P2 THENAL=AL-PI 

440 A2=C0S(DE) *SIN(AN) /COS(AL) 

441 REM IF A2<-1THENA2=.9999 

442 REM IF A2>1THENA2=. 9999 

4 45 X=(COS(DE) *COS (AN) -SIN (AN) *COS(LAT) ) / (COS ( 

AN) *SIN(LAT) ) 
4 50 AZ=FNAZN ( A2) +PI : Z=P2-AL : I FX<0THENAZ=PI-AZ 
4 70 IFAL<FNRAD ( 1 ) THENGN=0 :GOTO490 
4 80 GN*AO(M) /EXP (BETA (M) /SIN (AL) ) 
490 GD=GN*.75*(l+COS(TI) )/12 

560 A3=C0S(Z) *COS(TI)+SIN(Z) *SIN(TI) *COS(AZ) *C 
OS(BI) 

570 A3=A3+SIN(Z) *SIN(TI) *SIN(AZ) *SIN(BI) 
575 IN=FNACS(A3) : IFIN<0THENTR=0 :GOTO600 
590 GOSUB2000 

600 GL=(GN*A3*TR+GD) *10 : TT=TT+GL : SL=SL-I-GL 

712 NEXT2DD=DD+10:DOY=DOY+10:IFDOy>365THENDOY= 
DOY-365 

713 NEXT:SOUND200,3:PRINT"MONTH= " ; M : PRINT"TOT 
AL= ";FNTRC(TT) ;"BUT/(SQ FT)" 

715 GOSUB719:IFDD<152THEN348 

716 FORZZ= 1T05 : SOUND50 , 1 : F0RZY=1T03 : NEXT : NEXT 

717 TT=SL:PRINT" 

_ II 

718 PRINT"ANNUAL SAVINGS I PRINT :G0SUB7 19 : FORI 
=1TO1000:NEXT:RUN48 

719 IFM>4ANDM<11THEN800 

720 P=TT*FT/110000:PRINT"NAT. GAS SAVED"; FNTRC 
(P) ;"100 CU FT" 

7 30 PRINT"DOLLAR SAVINGS "; FNTRC (P*C) 

740 PRINT" " 

7 50 RETURN 

800 TM=TT*FT/T:P=220*SE*TM/1000 

8 05 PRINT"POWER EXPENDED "; FNTRC ( P) ; "KWH" 

810 PRINT"COOLING COST DUE TO WINDOW" : PRINTFNT 

RC(C*P/100) ; "DOLLARS" 
820 PRINT" " 
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1000 RETURN 

2000 REM GET TRANSMITTANCE FOR SINGLE GLAZED GL 
ASS 

2 010 IFIN<.8 7266THENTR=.87:GOTO2100 
2020 IFIN>1.2218THEN2050 

2 030 CI= (IN-.8726639) *4.5:TR=.16*COS(CI)+.68:GO 
TO2100 

2 050 TR=3.0599-1.948*IN: IFTR<OTHENTR=0 
2100 RETURN 

4 000 DATA390, .142,385, .144,376, .156,360, .18,350 

, ,196,345, .205,344, .207 
4 002 DATA351, .201,365, .177,378, .16,387, .149,391 

, .142 

5000 END 



Program 6. TI-99 Version. 

10 REM window heating analysis 

<:3 SPACES> 
30 REM program calculates solar radia 

tion transmitted through a window 

given latitude, azimuth and zenith 

and 

32 REM angle of window 

35 REM al=solar altitude, he=hr angle 
, de=dec 1 i nat i on 

36 REM tr =t r ansmi ssi on , sl=seasonal t 
ot^l btu/sq ft, tt=monthly 

37 REM tm=t i me (hr s) , aO=apparent sola 
r irradiance at zero air mass, bet 
a=atmospher i c extinction coefficie 
nt 

44 CALL CLEAR 

45 PRINT "C7 SPACES>wi ndow analysis" 

46 PRINT "<:6 SPACES>solar transmissio 
n"s : s : : s 

47 DIM BETA ( 12) , AO (12) 

48 PI=3. 14159 

49 P2=PI/2 

50 DEF RAD(A)=A*PI/180 

51 DEF ASN <B) =ATN (B/ <SQR ( 1-B*B) ) ) 
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52 


DEF ACS(C)=ATN( <SQR(1— C*C) ) /C) 






53 


DEF DEG<D>=INT(<D*lSO>/PI> 






54 


DEF TRC(E)=INT<E*100)/ lOO 






55 


DEF FUN <F)=F*180/PI 






A A 


PRINT "program requires 30 min 


to 






r un " s : s : 






200 


INPUT " 1 at 1 1 ude ( deg ) ? " s LAT 






20 1 


PRINT 






j-> jTv r— 

205 


L1=LAT 






2 1 O 


LAT=RAD (LAT) 






215 


PRINT analysis desired" 






220 


PRINT "1) heating" 






221 


PRINT "2> cooling" 






22-3 


n= 1 1 






224 


INPUT X 






225 


IF X<.>2 THEN 228 






226 


ful _ C 

M = 5 




228 


IF M>=3 THEN 232 






229 


DOY = M*31— 31-t-D 






o "y 


GOTO 235 






2o»2 


DOY= INT(M#30-6— 32-3+D) 






2o5 


FOR 1=1 TO 12 






236 


READ AO ( I ) 5 BETA < I ) 






240 


NEXT I 






245 


PRINT 






*-> i=" x-» 


INPUT « sq ft of window for 








16 SPACES>eval uat 1 on? " : FT 






252 


PR I NT 






255 


INPUT window tilt from horz. 






t6 SPACES>nor mal =90? "sTI 






257 


T 1 =T I 






cr a 

258 


PR INT 




'-J cr n 

25 V 


INPUT "window az i routh <n=0, s= 180) - 






deg? ":BI 






260 


PRINT 






26 1 


B1=BI 






263 


TI=RAD (TI ) 






265 


BI=RAD (BI ) 




267 


IF X=l THEN 310 






26*7 


INPUT "ai rcondi t i oner tons? 


T 




270 


T=T»12000 






27 1 


PRINT 
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272 INPUT "enter amps of ai re ond i t i on 

er , if not known enter O? " s SE ^ 

273 PRINT 

275 IF SE>0 THEN 280 ^ 
2 7 7 ^5 E 2 V|gj/' 
280 INPUT "cost for electricity, cent 

s/kwh? ":C ^ 
282 GOTO 335 

310 INPUT "cost of natural gas (cents 

/cu ft)? ":C ^ 

335 PRINT 5 s 5 5 5 

336 CALL CLEAR 

337 PRINT "window heating analysis by '"^ 
13 SPACES>di rect sunlight" ^ 

338 PRINT : s 

340 PRINT "latitude = ";L1;" deg" ^ 
342 PRINT ^ 

345 PRINT "window angle= ";Tl;"deg" 

346 PRINT ^ 

347 PRINT "window az= ";B1;" deg" ^ 

348 TT=0 

349 PRINT 

350 FOR J=l TO 3 ^ 

352 X = RAD (DOY-82) * 180/ 182- 5 

353 X=23-5»SIN<X) ^ 

354 HE = -135 

355 M=l 

356 IF DOY<=31 THEN 360 ^ 

357 M=INT ( (DOY-i-32- 3) /30- 6) ^ 
360 DE=RAD(X) 

370 FOR I=0 TO 16 ^ 
372 AN = 4-i-I ^ 
374 HE=HE+15 

376 AN=RAD<HE) ^ 
378 CALL SCREEN(3+I/2) ^ 
410 Al=COS <DE) *COS (AN) »COS (LAT) -i-SIN (D 

E)»SIN(LAT) ^ 
420 X=ACS(A1) ^ 
422 AL=P2-X 

425 IF AL<=P2 THEN 440 ^ 
427 AL = AL~"PI ^ 
440 A2=COS (DE) *SIN ( AN) /COS ( AL) 
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H H x-t 


A — \ LrUo \ Dfc.> »CUS \ AN) —SIN (AN) VCOS <LA 






1 ) / / (COS (AN) ♦SIN(LAT> ) 




AZ = ASN \ A2) -t-PI 






■7 — D T> /V 1 

Z — Kx: — AL 




cr 
*t wJ »J 


If- aJ> — U IrltiN 4/0 


45ci 


AZ = P I — AZ 




/I — T y-\ 


w V/ i~> XV nv I ■% \ 

Y Y = K AD \ 1 ) 




/ 1 


If- AL.> = YY THEN 480 


4/3 


Ili —i J*"* 




/I -7 irr 


eiU 1 U 4VU 






I3W — AU\ri / / tAriDtilAlri) / SIN\AL) ) 


A 


oU — tiN*. / ^* < 1+COS (TI ) ) /12 




^ JL 


An3 — UUSiZ) *COS(TI>+SIN(Z> »SIN<T1) * 






finci i i\'7 \ *r^ne / tax \ 
LriJt3 lAZ / ¥uiJS (J31 } 


/ V 


A,> — Ao + SIN(Z> fSINlTI) 4ESIN<AZ> «SIN< 






T \ 
1 / 




cr -7 


IN-— HL,i3 \ Ao/ 


«cr Q 


1 r 1 N THEN 5 */ O 






T D 
1 K = 




CT r 


BUTO 600 




cr Q y-» 


SOSUB 2000 




oUU 


l3L= \ IjN»A3»TR + BD> »10 




Z. 1^ cr 


T T T "T J_ fli 1 

11 — 11 •*-cfL 


1 U 


SL=SL+BL 




-7 y-» 


NE A 1 1 




-7 


rvr\—. rvTV-i-i /■* 


/ U-H- 


n v ~ r\ i~i \/ _i_ < f\ 




/ Uo 


IF DUY'^3c>6 THEN /08 




-~T r\~7 


TV n \/ — TV n X/ ~T I cr 




IlI C V "I" T 

NE A 1 J 




/ 1 u 


Y Y=TRC \ TT ) 




"7 11 


rKiwi montin— 5»^5 ^onal = ;YY 




5 DtlU/BCJ Ttl 




"7 1 


1"* /\ 1 1 fi 1 1 KI r\ / -t /\ f't "t \ 
Li-ALL oUUND \ lUU, lOOO, \JJ 




/ 1 


uiJoUo /23 




/ 1 4 


IP DD< 152 THEN 348 




/ 1 1-1 


T T — 1 

I 1 — SL 




-7 -f / 
/ 1 


PK I N 1 








/ 1 


DDT h.1 T l>-«.«-Lna*-«.l r--%^>4nn^|i>« « 

PKINi annual savings: : : 




719 


GOSUB 725 
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720 END 

725 IF (M>4> » <M< 1 1 ) THEN 800 

726 P=TT«FT/ 1 lOOOO 

727 YY=TRC(P) 

728 PRINT "natural gas saved= " ; 

729 YY=TRC<P»C> 

730 PRINT "dollar savings = " ; YY 
740 PRINT " 



YY 



750 PRINT 

751 RETURN 
800 TM=TT«FT/T 

802 P=220*SE*TM/1000 

804 YY=TRC(P) 

805 PRINT "power expended 

809 YY=TRC <C«P/100) 

810 PRINT "cooling cost due 

= " ; YY; " dol 1 ars" 

820 PRINT " 



YY; 



kwh" 



to window 



2000 

2010 
2012 
2014 
2020 
2030 
2035 
2040 
2050 
2055 
2060 
2100 
4000 



4002 



for single 



830 PRINT 
lOOO RETURN 

REM get t r an smi t t ance 

glazed glass 
IF IN>=. 87266 THEN 2020 
TR=. 87 
GOTO 2100 

IF IN>1.2218 THEN 2050 
CI = < IN-. 8726639) *4- 5 
TR=. 16«C0S (CI ) +.68 
GOTO 2100 

TR=3. 0599-1 . 948* IN 
IF TR>0 THEN 2100 
TR=0 
RETURN 

DATA 390, . 142, 385, . 144, 376, . 156, 
360, . 18, 350, .196, 345, . 205, 344, . 2 
07 

DATA 351 , . 201 , 365, . 177, 378, -16,3 
87, . 149, 391 ,. 142 
5000 END 
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Analysis 



Window Shading 

Analysis 



In "Window Heat Loss/Gain'' (see Chapter 8), I discussed how to 
calculate the effect of solar heating on heating and cooling cost. If 
you have used that program, then you know that south-facing 
windows can augment winter heating to a substantial degree, 
while east- and west-facing windows can cause the homeowner 
substantial penalties in air conditioning cost. 

In order to eliminate this unneeded burden on the summer 
budget, you should shade the affected windows. One of the most 
effective means is to plant a deciduous tree, and let mother nature 
install and remove the shade with the seasons. Your second best 
choice is to add a solar screen or put up an awning. Whether you 
are installing an awning, building a house, or remodeling, the 
decision of where to place the shading device is always a difficult 
one. 

For south-facing windows at local solar noon, calculate the 
angle from the horizon to the sun by simply adding 90 degrees to 
the latitude and subtracting the solar declination from the sum. 
Add a little trigonometry, and you can design the depth of 
overhang necessary to shade the window in summer, yet permit 
sunlight in the window in winter. However, for early morning or 
late afternoon the geometry gets more complicated. It gets even 
more complex when the window faces any direction other than 
south. 

The window shading program calculates the depth of an eave 
(distance out from the house) which is necessary to cast a shadow 
on the wall of a given dimension (SH). The program also calculates 
the shadow cast on the wall from an eave of a fixed size (EV). Both 
calculations are made simultaneously, and either factor (SH or EV) 
may be set to zero if that particular option is not needed. The 
calculations are done each hour of the day from 6 a.m. to 6 p.m. so 
that the varying conditions in the day can be examined. 

At times, no eave of any size will shade the desired area; at 
other times, no shadowing may be necessary since the sun is on 



211 



the other side of the house. These instances are indicated in the 
output table, with zeros for the size of the eave or length of the 
shadow. At times the program will call for extraordinarily large 
eaves in order to perform the required shading. It is left up to you 
to choose dimensions which are architecturally sound and 
esthetically pleasing. 

The inputs required for the program are latitude (LAT), 
month (M), day (D), the amount of shade required (SH), the size of 
the eave (EV), and the window azimuth (the direction the window 
faces). The outputs are the local solar time, the azimuth of the sun 
(AZ), the altitude of the sun above the horizon (AL), the zenith 
angle of the sun (Z), and the depth of the eave from the house 
necessary to produce the required shade, and the length of the 
shadow on the wall. 

Thus, if you wanted a window shaded in the summer, the 
program would be run for June 20 (summer solstice), setting the 
amount of shade (SH) as the distance between the bottom of the 
window and the bottom of the eave (Table 1). In order to 
calculate the size of eave necessary to allow sunlight in the 
window, the program should be run for December 20 (winter 
solstice) using the distance between the top of the window and the 
bottom of the eave. Then you must compare the two results and 
how they vary during a day to decide on an optimum size overhang. 
Once you choose this optimum size overhang, then you should use 
the option of setting a constant overhang distance (EV) and 
running cases for all critical seasons to verify that the eave size 
was chosen correctly. An example of this type of run is given in 
Table 2. 

The program is very simple. Lines 30 to 130 set up the 
functions, constants, and titles. Lines 140 to 180 calculate the day 
of year (DOY) and solar declination (DE) from the month and day. 
Lines 190 to 290 input the geometry of the eave, shadow, and 
latitude, and set up the table headings. Line 300 starts the FOR 
loop for time of day (AM) and converts it to hour angle (HE). Lines 
310 to 350 calculate the altitude and azimuth of the sun (AL and AZ 
respectively), using standard formulas. Lines 360 and 370 calculate 
the projection of the eave on the wall and vice versa. 

Reference 

Klen, David C. "Solar Specs." Microcomputing, March 1980, pp. 68-70. 
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^ Table 1 « Sample Run — Required Eave Size« 

WINDOW SHADING 



PROGRAM CALCULATES THE SIZE EAVE NECESSARY TO SHADE 
A WINDOW FACING ANY DIRECTION FROM DIRECT SUNLIGHT 



PROGRAM ALSO CALCULATES THE SIZE SHADOW ON THE WALL 
PRODUCED BY AN EAVE OF A GIVEN SIZE 

L_ LATITUDE (DEG)? 30 

MONTH? 6 
, DAY? 20 

^ DISTANCE EAVE PROJECTS FROM WALL (ANY UNITS ARE OK)? 

HEIGHT OF EAVE ABOVE DESIRED 
W LOC OF SHADE (ANY UNITS ARE OK)? 48 

WINDOW AZIMUTH, 0=N, 90=E, 180=S, 270=W, DEG? 270 

WINDOW EAVE EVALUATION FOR 30 DEG LATITUDE 
^ WINDOW AZ= 270 , JUNE 20 

Vjlp/ ——————————————————————————— — — — — _ 

I SUN TIME i SUN POSITION I SIZE OF i SIZE OF i 
^ i LOCAL iAZI ALT ZEN I EAVE i SHADOW 1 



6 


69 


11 


78 








7 


75 


23 


66 








8 


81 


36 


53 








9 


88 


49 


40 








10 


96 


62 


27 








11 


112 


75 


14 








12 


179 


83 


6 








13 


247 


75 


14 


11 





14 


263 


62 


27 


24 





15 


-89 


49 


40 


40 





16 


-82 


36 


53 


63 





17 


-76 


23 


66 


105 





18 


-70 


11 


78 


220 
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Table 2* Sample Run — Shading By Eaves. 



WINDOW SHADING 



PROGRAM CALCULATES THE SIZE EAVE NECESSARY TO SHADE 
A WINDOW FACING ANY DIRECTION FROM DIRECT SUNLIGHT 

PROGRAM ALSO CALCULATES THE SIZE SHADOW ON THE WALL 
PRODUCED BY AN EAVE OF A GIVEN SIZE 



LATITUDE (DEG)? 30 
MONTH? 6 
DAY? 20 

DISTANCE EAVE PROJECTS FROM WALL (ANY UNITS ARE OK)? 

HEIGHT OF EAVE ABOVE DESIRED 

LOC OF SHADE (ANY UNITS ARE OK)? 

WINDOW AZIMUTH, 0=N, 90=E, 180=S, 270=W, DEG? 270 



WINDOW EAVE EVALUATION FOR 30 DEG LATITUDE 
WINDOW AZ= 270 , JUNE 20 



i SUN TIME I SUN POSITION I SIZE OF i SIZE OF 1 
I LOCAL lAZI ALT ZEN i EAVE 1 SHADOW I 



6 


69 


11 


78 








7 


75 


23 


66 








8 


81 


36 


53 








9 


88 


49 


40 








10 


96 


62 


27 








11 


112 


75 


14 








12 


179 


83 


6 








13 


247 


75 


14 





101 


14 


263 


62 


27 





48 


15 


-89 


49 


40 





29 


16 


-82 


36 


53 





18 


17 


-76 


23 


66 





11 


18 


-70 


11 


78 
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Program 1 . OSI Version. 

10 REM WINDOW SHADING ANALYSIS 

30 DIM M$ (12) :PI=3. 14159265 :P2=Pl/2:DEFFN 

RAD(A)=A*Pl/l80 
40 DEFFNASN(B)=ATN(b/(SQR(1-B^2) ) ) :DEFFNA 

CS(C)=ATN( (SQR(1-C*2)/C) ) 
50 DEFFNDEG(d)=INT( (D*180)/PI) :DEFFNTRC(E 

)=INT(E*100)/100 

60 fori=1to20 : print :next:printtab( 25 ) ; "wi 

ndow shading" 
70 fori=1to10: print: next 

80 PRINTTAB(5) ; "PROGRAM CALCULATES THE SI 

ZE EAVE NECESSARY TO SHADE" 
90 PRINTTAB(5) ; "A WINDOW FACING ANY DIREC 

TION FOR DIRECT SUNLIGHT" 
100 PRINT: PRINT: PRINT 

110 PRINTTAB(5) ; "PROGRAM ALSO CALCULATES T 

HE SIZE SHADOW ON THE WALL" 
120 PRINTTAB( 12); "PRODUCED FROM AN EAVE OF 

A GIVEN SIZE" 
130 F0RI=1T05 : PRINT :NEXT : INPUT"LATITUDE (DE 

G ) " ; LAT 

140 LI =LAT:LAT=FNRAD( LAT ): INPUT "MONTH #";M 

: INPUT "DAY" ?D 
150 IFM< 3THEND0Y=M* 3 1-3 1+D : GOTOl 70 
160 DOY=INT(M*30.6-32.3+D) 

170 X=FNRAD( (DOY-82)*180/ia2.5):X=23.5*SIN 
(X) 

180 DE=FNRAD(X) : F0RI=1T012 :READM$ (l) :NEXT: 
RESTORE 

190 INPUT "DISTANCE EAVE PROJECTS FROM WALL 

,ANY UNITS ARE OK"yEV 
200 INPUT"HEIGHT OF EAVE ABOVE DESIRED LOC 

OF SHADE, ANY UNITS ARE OK";SH 
210 INPUT"WINDOW AZIMUTH, 0=N, 90=E, 180=S 

, 270=W, DEG";BI:B1=BI 
220 BI=BI+90:BI=FNRAD(BI) :HE=-105:FORI=1TO 

8: PRINT: NEXT 
230 PRINTTAB(5) ; "WINDOW EAVE EVALUATION FO 

R "7L1;"DEG LATITUDE" 
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240 PRINT :PRINTTAB{ 14 ); "WINDOW AZ= ";Bl;", 

" ; TAB( 30 ) ; M$ (M) ; TAB( 35 ) ; D 
250 Y=FNDEG(DE) :PRINTTAB(15);"SIZE OF THE ' 

EAVE IS ";FNTRC{EV) 
260 PRINT"DISTANCE FROM BOTTOM OF SHADE TO 

BOTTOM OF EAVE= ";SH 
270 PRINT :GOSUB420 

280 PRINT" ISUN TIME 1 SUN POSITION I SIZE 

OF I SIZE OFl":GOSUB 420 
290 PRINT" I LOCAL lAZI ALT ZEN I EAV 

E I SHADOW i" 
3 00 GOSUB420 : FORI=0TO1 2 : AM=6+I : HE=HE+1 5 : AN 

=FNRAD(HE) 

310 OB=0 : Al =COS ( DE ) *COS ( AN ) *COS { LAT ) +S IN ( D 

E)*SIN(LAT) 
320 X=FNACS(A1) :AL=P2-X:IFAL>P2THENAL=AL-P 

I 

330 x=(cos(de)*cos(an)-sin(al)*cos(lat) )/( 
cos(al)*sin(lat) ) 

340 IFX<0THENOB=1 

350 A2=C0SCDir)*SIN(AN>/C0S(AL) : AZ=FNASN(A2 

) +PI : IF0B=1THENAZ=PI-AZ 
360 Z=1.5708-AL:R=TAN(Z)*SIN(BI-AZ) :IFZ>=P 

2THENR=0 

370 Y=0 : X=0 : 1 FR> 0THENX=SH*R : Y=EV/ R 
380 AZ=FNDEG ( AZ ) : AL=FNDEG ( AL ) : Z=FNDEG ( Z ) 
390 PRINTTAB ( 2 ) ; AM; TAB { 1 I ) ; AZ ; TAB ( 1 6 ) ; AL ; T 
AB(21);Z7 

400 PRINTTAB(28) ;FNTRC(X) ; TAB( 39 ) ; FNTRC( Y) 
: NEXT : END 

410 DATA JAN,FEB,MARCH,APRIL,MAY, JUNE, JULY 

, AUG , SEPT , OCT / NOV , DEC 
420 PRINT" 

": RETURN 
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Program 2. VIC Version* 

10 REM WINDOW SHADING ANALYSIS VIC VERSION 
30 DIMM$(12):PI=3.14159265:P2=Pl/2:DEF FNRAD( 
A)=A*PI/180 

40 DEF FNASN{B)=ATN(b/(SQR(1-bT2) ) ) :DEF FNACS 

(C)=ATN( (SQR(1-CT2)/C) ) 
50 DEF FNDEG(D)=INT( (D*180/PI) ) :DEF FNTRC(E)= 

INT(E*100)/100 
60 PRINTTAB(4) 7 "WINDOW SHADING" : PRINT : PRINT : P 

RINT 

80 PRINT"PROGRAM CALCULATES THESIZE EAVE NECE 
SSARY TO SHADE A WINDOW FACING" 

90 PRINT "ANY DIRECTION FROM DIRECT SUNLIGH 
T": PRINT: PRINT 

110 PRINT "PROGRAM CALCULATES THESIZE SHADOW ON 
THE"; 

120 PRINT" WALL PRODUCED FROM AN EAVE OF A 

GIVEN SIZE" 
130 PRINT : PRINT : INPUT "LATITUDE ( DEG ) " ; LAT 
140 L1=LAT :LAT=FNRAD (LAT ): INPUT "MONTH" ; M: INPU 

T"DAY";D 

150 I FM< 3THEND0Y=M* 3 1 - 3 1 +D : GOTOl 7 
160 DOY=INT(M*30.6-32.3+D) 

1 70 X=FNRAD( (DOY-82 ) *180/l82 . 5 ) :X=23 • 5*SIN(X) 

180 DE=FNRAD(X) :F0RI=1T012:READM$ (l) :NEXT 

190 PRINT :PRINT"DISTANCE EAVE PROJECTS FROM WA 

LL ANY UNITS" :INPUT"ARE OK";EV 
200 PRINT :PRINT"HEIGHT OF EAVE ABOVE DESIRED 

LOC OF SHADE" 
205 INPUT", ANY UNITS ARE OK";SH 

210 PRINT :INPUT"WINDOW AZIMUTH, 0=N, 90=E,180= 

S,270=W, DEG";BI:B1=BI 
220 BI=BI+90:BI=FNRAD(BI) :HE=-105 
230 PRINT"WINDOW EAVE EVALUATION FOR "7L1;"DEG 

LATITUDE" 
240 PRINT "WINDOW AZ= " ; Bl ; M$ (M) ; D 
280 PRINT"SUN SUN SIZE SIZE" 

290 PRINT"TIME POS OF OF" 2 PRINT" AZ 

ALT EAVE SHADE" :GOSUB420 
300 FORI=0TO12 : AM=6+I 2HE=HE+15 : AN=FNRAD(HE) 
310 OB=0:A1=COS(DE)*COS(AN)*COS(LAT)+SIN(DE)*S 

IN(LAT) 
3 20 X=FNACS(A1) :AL=P2-X 
3 25 IFAL>P2THENAL=AL-PI 
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3 30 x=(cos(de)*cos(an)-sin(al)*cos(lat) )/(cos( 

al)*sin(lat) ) 
340 ifx<0thenob=1 

3 50 A2=C0S ( DE ) *S IN ( AN ) /COS ( AL ) : AZ=FNASN ( A2 ) +PI 

: IF0B=1THENAZ=PI-AZ 
360 Z=l .5708-AL:R=TAN(Z) *SIN(BI-AZ) :IFZ>=P2THE 

NR=0 

3 70 X=0 : Y=0 : IFR>0THENX=SH*R: Y=EV/R 
3 75 IFR< .0001THENY=0 

380 AZ=INT(FNDEG(AZ) ) : AL=INT(FNDEG ( AL) ) :Y=INT( 
Y) :X=INT(X) 

390 PRINTAM7TAB(4) 7AZ;TAB(9) 7AL;TAB(13)7X;TAB( 

17) 7Y:NEXT 
400 GOTO400 

410 DATA"JAN" , "FEB" , "MAR" , "APRIL" , "MAY" , "JUNE" 

, "JULY" , "AUG" , "SEPT" , "OCT" , "NOV" , "DEC 
II 

420 PRINT" ": RETURN 



Program 3. Microsoft Version. 

10 REM WINDOW SHADING 

30 DIMM? (12) :PI=3.14159265:P2=PI/2:DEF FNRAD( 
A)=A*Pl/l80 

40 DEF FNASN(B)=ATN(B/(SQR(1-Bt2) ) ) :DEF FNACS 

(C)=ATN( (SQR{1-CT2)/C) ) 
50 DEF FNDEG(D)=INT( (D*180/PI) ) :DEF FNTRC(e)= 

INT(E*100)/100 
60 PRINT" {clear} "7 TAB( 10) 7 "WINDOW SHADING{03 

down} " 

80 print"program calculates thesize eave nece 
ssaryto shade a window facing" 7 

90 print" any direction from direct sunlight 
": print: print 

110 print"program calculates thesize shadow on 

THE" 7 

120 PRINT "WALL PRODUCED FROM AN EAVE OF A GIVE 
N SIZE" 

1 30 PRINT : PRINT : INPUT"LATITUDE ( DEG ) " 7 LAT 
140 L1=LAT:LAT=FNRAD( LAT) -.INPUT "MONTH" 7 M: INPU 
T"DAY"7D 

150 IFM< 3THEND0Y=M* 3 1-3 1+D : GOTOl 70 
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160 DOY=INT(M*30.6-32.3+D) 

170 X=FNRAD( (DOY-82 ) *180/l82 . 5 ) :X=23 . 5*SIN(X) 

180 DE=FNRAD(X) :F0RI=1T012:READM$ (l) :NEXT 

190 PRINT :PRINT"DISTANCE EAVE PROJECTS FROM WA 

LL ANY":INPUT"UNITS ARE OK";EV 
200 PRINT :PRINT"HEIGHT OF EAVE ABOVE DESIRED L 

OC OF SHADE" 
205 INPUT", ANY UNITS ARE OK";SH 

210 PRINT" {down! WINDOW AZIMUTH, 0=N, 90=E,180= 

S , 270=W, " : INPUT "DEG" ; BI : B1=BI 
220 BI=BI+90:BI=FNRAD(BI) :HE=-105 
230 PRINT" {clear} " 7 "WINDOW EAVE EVALUATION FOR 

";L1;"DEG LAT" : GOSUB420 
240 PRINT"WINDOW AZ= " ; Bl ; M$ (M) ; D :GOSUB420 
280 PRINT"SUN SUN SIZE SIZE" 

290 PRINT"TIME POS OF OF" 

295 PRINT" AZ ALT EAVE SHADE" :GOSU 

B420 

3 00 FORI=0TO1 2 : AM=6+I : HE=HE+1 5 : AN=FNRAD ( HE ) 
310 OB=0 : Al =COS ( DE ) *COS ( AN ) *COS ( LAT ) +S IN ( DE ) *S 

IN(LAT) 
3 20 X=FNACS(A1) :AL=P2-X 

3 25 ifal>p2thenal=al-pi 

330 x=(cos(de)*cos(an)-sin(al)*cos(lat) )/(C0S( 

AL)*SIN(LAT) ) 
340 IFX<0THENOB=1 

3 50 A2=C0S ( DE ) *S IN ( AN ) /COS ( AL ) : AZ=FNASN ( A2 ) +P I 

: IF0B=1THENAZ=PI-AZ 
360 Z=1.5708-AL:R=TAN(Z)*SIN(BI-AZ) :IFZ>=P2THE 

NR=0 

370 X=0 : Y=0 : IFR>0THENX=SH*R: Y=EV/R 
375 IFR< .0001THENY=0 

380 AZ=INT(FNDEG(AZ) ) : AL=INT(FNDEG ( AL) ) :Y=INT{ 
Y) :X=INT(X) 

390 PRINTAM;TAB(6);AZ7TAB(12);AL;TAB(19);X;TAB 

(26) 7Y:NEXT 
400 GOTO400 

410 DATA"JAN" /'FEB", "MAR", "APRIL", "MAY", "JUNE" 

, "JULY" , "AUG" , "SEPT" , "OCT" , "NOV" , "DEC 
II 

420 PRINT" 

": RETURN 
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Pro3ram4. Atari Version. 

lO REM WINDOW SHADING ANALYSIS ATARI 
VERSION 

20 DIM M« < 12*3) s PI=3. 14159265s P2=PI /2 
30 FNRAD=35! FNASN=40 s FNACS = 45 s FNDEG = 5 

OsGOTO 60 
35 V=V»PI/1B0!RETURN 
40 V=ATN (V/ (SQR ( 1-^2) )) s RETURN 
45 V=ATN ( <SQR ( 1-^2) /V) ): RETURN 
50 V=INT( (VtlSO/PI ) ) :RETURN 
60 PRINT " f nt FARl Whi.MaiWMsiiMAi?!? " ; PRTN 

T SPRINT SPRINT 
80 ? SPRINT "PROGRAM CALCULATES THE"s 
? "SIZE EAVE NECESSARY T0"5? "SHAD 
E A WINDOW FACING" 
90 PRINT "ANY DIRECTION FROM DIRECT S 

UNLIGHT" s PRINT sPRINT 
110 PRINT "PROGRAM CALCULATES THE SIZ 

E SHADOW ON" 
120 PRINT "THE WALL PRODUCED FROM"s? 

"AN EAVE OF A GIVEN SIZE" 
130 PRINT SPRINT sPRINT " L AT I TUDE ( DEG 

) " ; s INPUT LAT 
140 Ll=LATs V=LATs GOSUB FNRAD s LAT=V s ? 

" MONTH " ; s I NPUT M s PR I NT " DAY " ; : I NP 
UT D 

150 IF M<3 THEN D0Y=M«3 1 -3 1 +D s GOTO 17 
O 

160 DOY=INT (M«30. 6-32. 3+D) 

170 V= < <D0Y-82> »180/ie2.5) s GOSUB FNRA 

Ds X=Vs X = 23. 5*SIN<X) 
ISO V=Xs GOSUB FNRADs DE=Vs M*=" JANFEBMA 

RAPRMAYJUNJULAUGSEPOCTNOVDEC" 
190 PRINT SPRINT "DISTANCE EAVE PROJE 

CTS FROM"s? "WALL (ANY UNITS ARE 

OK) " ; s INPUT EV 
200 PRINT SPRINT "HEIGHT OF EAVE ABOV 

EC3 SPACES>DESIRED LOC" 
205 PRINT "OF SHADE, ANY UNITS ARE OK 

" ; s INPUT SH 
210 PRINT SPRINT "WINDOW AZIMUTH, 0=N 

, 90=E, 180=S,270=W, DEG"; s INPUT B 

IsBl=BI 

220 







w 




w 




w 


220 


w 






230 








AO 


w 


250 








280 






'w 


290 




«-> O 




297 








300 










320 


w 


jC. w 




T "T /\ 




O *T V 




350 


Sat/ 










360 






370 




375 




380 








390 
















HW 




410 




420 















BI=BI+90: V=BI : GOSUB FNRADs BI=V: HE 
= -105 

PRINT " <;CLEAR>Window Eave Evaluat 
ion"!? "for ";L1;" DEG Latitude" 
PRINT "Window Az i rout h= " ; B 1 ; " , " ; M* 
<M»3-2, M*3) ; " ";D 

? "CQJCS R>tWJt8 RXWXA R> €W> 

£5 r><:e>" 



TIME MPOSITIONH OF » OF 



i^'iw; I I I mil uiwai ansmsi 
? "<:a><:5 r><:s>€8 R>ts><:4 r}£s> 

{5 R>{D>" 

FOR I=0 TO 12s AM=6+I s HE=HE+15! V=H 
E: GOSUB FNRAD:AN-V 

0B=0: A1«C0S (DE) «COS (AN) *COS <LAT) + 

SIN (DE) «SIN (LAT) 

V-A1:G0SUB FNACS: X=Vs AL=P2-X 

IF AL>P2 THEN AL=AL-PI 

X= <COS <DE) «COS (AN) -SIN <AL) «COS (LA 

T) ) / (COS ( AL) «SIN (LAT) ) 

IF X<0 THEN 0B=1 

A2=C0S (DE) tSIN (AN) /COS ( AL) : V=A2! G 
OSUB FNASN: AZ=V+PI : IF 0B=1 THEN A 
Z=PI-AZ 

Z = l . 5708-ALs R= (SIN (Z) /COS ( Z) ) *SIN 
(BI-AZ):IF Z>=P2 THEN R=0 
X=0:Y=0:IF R>0 THEN X=SH«R s Y=EV/R 
IF R<lE-04 THEN Y=0 

V=AZ: GOSUB FNDEGs AZ=INT ( V) : V=AL:G 
OSUB FNDEGs AL= I NT (V) s Y=INT (Y»100 + 
O. 5) /lOOs X = INT (X»100+0. 5) /I 00 
PRINT "! ";AM;sPOKE 85,8s? ;"!";A 
Z;!POKE 85,14!? AL;5P0i<E 85,17s? 
"!";X;!POKE 85,22!? "!";Y;sPOKE 8 
5,28s? ";"!NEXT I 

? "CZ>€5 R><:X>t8 R>€X>€4 R>tX> 
t5 R><C>" 

? "When -finished, press 
IF PEEK(764)<>12 THEN 410 
POKE 764, 255s GRAPHICS OsEND 



RETUR 
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Program 5. Color Computer Version. 

5 COLOR COMPUTER VERSION 
10 REM WINDOW SHADING 

30 DIM M$ (12) :PI=3.14159265:P2=PI/2:DEFFNRAD( 
A) =A*PI/180 

40 DEFFNSAN(B) =ATN(B/(SQR(1-B 2 ) ) ) : DEFFNACS (C 

) =ATN( (SQR(1-C 2)/C) ) 
5 DEFFNDEG(D)=INT( (D* 180) /PI) : DEFFNTRC (E) =IN 

T(E) 

60 CLS :PRINTTAB (9) ; "WINDOW SHADING" 
70 PRINT:PRINT 

8 PRINT"PROGRAM CALCULATES THE SIZE EAVE NEC 

ESSARY TO SHADE A WINDOW FACING" 

9 PRINT" ANY DIRECTION FROM DIRECTSUNLIG HT" 
100 PRINT:PRINT 

110 PRINT"PROGRAM ALSO CALCULATES THE SIZESHAD 

OW ON THE WALL" 
120 PRINT"PRODUCED FROM AN EAVE OF ANY GIVEN S 

IZE" 

130 PRINT:PRINT:PRINT:INPUT"LATITUDE (DEG)";LA 
T 

140 L1=LAT:LAT=FNRAD(LAT) : INPUT"MONTH #";M:INP 

UT"DAY";D 
150 IFM<3THENDOY=M*31-31+D:GOTO170 
160 DOY=INT(M*30.6-32.3+D) 

170 X=FNRAD( (DOY-82)*180/182.5) : X=23 . 5*SIN (X) 
180 DE=FNRAD(X) : F0RI=1T012 : READM$ (I) : NEXT: REST 
ORE 

190 PRINT: INPUT"DISTANCE EAVE PROJECTS FROM WA 

LL ANY UNITS ARE OK" ; EV 
200 PRINT: INPUT" HEIGHT OF EAVE ABOVE DESIRED L 

OC OF SHADE, ANY UNITS ARE OK";SH 
210 PRINT: INPUT"WINDOW AZIMUTH, 0=N, 90=E, 180 

=S, 270=W, DEG";BI:B1=BI 
220 BI=BI+90:BI=FNRAD(BI) : HE=-105 : F0RI=1T08 : PR 

INT:NEXT 

2 30 PRINT" WINDOW EAVE EVALUATION " : PRINTTA 

B(5);L1;"DEG LATITUDE" 
240 PRINT" WINDOW AZ= " ; Bl ; " , " ; M$ (M) ; D 
250 Y=FNDEG (DE) : PRINT" SIZE OF THE EAVE IS 

"; FNTRC(EV) 
260 PRINT" DISTANCE FROM BOTTOM OF SHADE 

TO BOTTOM OF EAVE= ";SH 
270 GOSUB420 



222 











280 


PRINT" !SUN !SUN POSITION ! SIZE ! SI ZE !" 




290 


PRINT" ! ! ! OF ! OF ! " 


295 


PRINT" ITIME! AZI ALT lEAVE ISHADEl" 




3 00 

«J K/ K/ 


GOSUB420 : FORI=0TO12 : AM=6+I : HE=HE+15 : AN=FN 
RAD (HE) 




3 10 


OB=0 : A1=C0S (DE) *COS(AN) *COS (LAT) +SIN (DE) *S 






IN(LAT) 


320 


X=FNACS(A1) :AL=P2-X:IFAL>P2 THENAL=AL-PI 




330 


X= (COS (DE) *COS (AN) -SIN (AL) COS (LAT) ) / (COS (A 
L) *SIN(LAT) ) 




340 


IFX<0THENOB=1 




350 


A2=C0S(DE) *SIN(AN)/COS(AL) : AZ=FNSAN ( A2) +PI 
: IF0B=1THENAZ=PI-AZ 




360 


Z=^1.5708-AL:R=TAN(Z) *SIN(BI-AZ) :IFZ>=P2 TH 






ENR=0 


370 


Y=l(}:X=0:lFR>0THENX=SH*R:Y=EV/R 


w 


375 


IFR<.0001THENY=0 


380 


AZ=FNDEG(AZ) : AL=FNDEG (AL) 




390 


PRINTAM;TAB(5) ; AZ;TAB(12) ; AL;TAB(18) ; FNTRC 






(X) ; TAB (25) ; FNTRC (Y) :NEXT 


400 


GOTO400 




410 


DATA JAN,FEB,MARCH,APRIL, MAY , JUNE, JULY, AUG 
, SEPT, OCT, NOV, DEC 




420 








URN 










Prosram 6. TI-99 Version. 




lO 


REM WINDOW SHADING ANALYSIS, TI VE 
RSION 




20 


DIM M*<12> 


25 


PI=3. 14159265 




28 


P2=PI /2 




30 


DEF RAD(A)=A«PI/180 


35 


DEF ASN (B) =ATN (B/ <SQR ( 1-B«B) ) ) 




40 


DEF ACS <C) =ATN < (SQR < 1-C»C) /C) ) 




45 


DEF DEG <D> =INT ( <D«180) /PI ) 


50 


DEF TRC(E)=INT<E»10) /lO 




55 


CALL CLEAR 




60 


PRINT " <.7 SPACES>wi ndow shading": 




■ ■ ■ ■ 
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so PRINT "program calculates the size 

eave necessary to shade a" ^ 

90 PRINT "window facing any direction 

from direct sunlight": : : : ^ 

llO PRINT "program also caculates the ^ 
size shadow on the wall 
C5 SPACES>produced from an eave of ^ 
a^3 SPACES>given size": : i : : ^ 

130 INPUT "latitude <deg) = ?":LAT 

132 L1=LAT ^ 

134 LAT=RAD(LAT) W 

136 INPUT "month # ?":M 

140 INPUT "day ?":D 

150 IF M>=3 THEN 160 W 

155 D0Y=M*31-31+D 

158 GOTO 170 

160 DOY=INT (H*30. 6-32. 3+D) ^ 
170 X=RAD < <D0Y-82) »180/182. 5) ^ 
175 X=23.5*SIN(X) 
ISO DE=RAD(X> 

182 FOR 1=1 TO 12 w 
184 READ M« ( I ) 

186 NEXT I ^ 

188 RESTORE w 

189 PRINT : : 

190 INPUT "distance eave projects fro 

in wall, any units are ok ?":EV w 
195 PRINT : : ^ 
200 INPUT "height of eave above desir 

ed loc of shade, any units are ok 

205 PRINT : : 

210 INPUT "window azimuth, 0=n , 180=s 

, 270=w, deg ?":BI W 

215 B1=BI 

220 BI=BI+90 

222 BI=RAD<BI) W 

224 



















Ht — — 1 U3 




^7 r> z. 






230 


PRINT "window eave evaluation for 




O "T ^ 


KKiNi ifi£5\3/9i.i9 aeQ lauiHiicie : s 




240 


PRINT TAB <2) ; "window az = "5B1;TA 

Dl^l/ynv^ri/y IROl^D/yD 






\/ — T\cm / r\c \ 




252 
255 


YY=TRC<EV) 

PRINT TAB(4);"size of the eave is 
; YY 




260 


GOSUB 420 

PRTMT "le^iirk ■eiirh'T''^ QPAHP'Q'Vlc'i-yBl 

r^r\xiMi .Sun .sun\.«ij or^ML#c.oj^!Size! 






size 




285 


PRINT "'time 'position! of f of" 
r^riiiMi .xocai.azi aic reve .snaoo 






w 




300 

-y 1^ «-> 


60SUB 420 

r UK 1— U lU 1 










30o 






/\M — DAT\ / LJC\ 




O 1 U 


riD — <^ 
Ud — U 




312! 


Al=CuS iDE) 9COS <AN) VCOS \ LAT> -l-SIN (D 






c. / ¥«3lN\L.RI / 




-y o 


A — RUo \ R 1 / 




322 


AL=P2-X 

T C /V 1 ✓—DO "f" 1 1 r~ ki -y -y 1^ 

It" Rl-N.— r*-^ 1 riciN 33U 




-y *-> ^ 


/VI — /VI D T 

RL — RL — r' 1 




330 


X= (COS <DE) t COS (AN) -SIN ( AL) *COS (LA 
T\> //f^ne//vi \*cTiki/i /VT\\ 




-y /I 


Ir A > = 1 Hn.N 33Q 




-y i| cr 


n D — 'i 
Ujo— 1 


-y KT y-» 


/vr> — f^ne / r\cr \ %ctki / /viliv /r*ne / /vi \ 




-y cr o 


— ACKI / AO \ ^DT 

RZ— RoN \ R^y "rrl 




-y 1^ M 


IF UB<>1 THEN 3oO 


T Z. 

3Do 


/V "7 — D T /V "7 

R Z — 1 — R Z 




-y y_ x\ 


7 < «^ -7 y-. Q /v 1 


\^ 


-y y_ o 

3o^ 


D — TAIlI/T \ *CTIi.I/DT A"7\ 

R=TRN\Z) »SIN\BI— AZ> 


A A 

•u> O *T 


TIT 7^'P'7 TMPM "^Vri 
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366 R=0 
370 Y=0 
372 X=0 

374 IF R<=0 THEN 380 
376 X=SH«R 
378 Y=EV/R 
380 AZ=DEG<AZ) 
382 AL=DE6(AL> 

390 PRINT AM;TAB(7) ; AZ;TAB<12> ; AL; 
394 YY=TRC<X) 
396 ZZ=TRC<Y) 

400 PRINT TAB < 17) ; YY; TAB (23) ; ZZ 
402 NEXT I 
404 END 

410 DATA jan , -feb , march , apri 1 , may , june 

, July, aug , sept , oct , nov , dec 
420 PRINT "- 

430 RETURN 
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Ceiling Fan Analysis 



As the cost of electricity increases at an alarming rate, people are 
looking for methods to reduce the cost of keeping cool. They add 
insulation, shade windows, reduce kitchen heating, turn up 
thermostats, and sometimes, out of desperation, turn air 
conditioners completely off. However, since most people prefer 
not to sacrifice their comfort to an undue degree, ceiling fans have 
become a popular supplement to air conditioning in much of the 
Sunbelt. They may even serve as an inexpensive alternative to air 
conditioning in more moderate summer climates. 

Ceiling fans cool by the same wind chill processes that we 
experience with the passage of a "blue norther." However, at the 
higher summer temperatures, the effect is not nearly as 
pronounced. Basically, the wind chill effect occurs because the 
convective heat transfer from our bodies increases dramatically as 
the wind speed increases. Thus, with the addition of a ceiling fan, 
we can reduce the air conditioning thermostat and still experience 
the same comfort level at a decreased energy cost. 

Should you invest in a ceiling fan? Three factors need to be 
considered: 1) the cost of the fan, 2) the potential savings, and 3) 
the cost of operation. This program will estimate the last two of 
these, leaving it up to you to minimize the cost of the fan. The 
program will enable you, the user, to evaluate the effective 
decrease in temperature, the savings due to increasing the air 
conditioner thermostat, and the cost of operating the ceiling fan. 
With this, you will have a tool with which you can evaluate buying 
a ceiling fan, based on the pay-out period of the investment. 

Customizins For Wind Chill 

The wind chill factor (see ref. 2.) used in line 300 (line 280 in the 
Atari and Color Computer versions) is a function of temperature (T, 
degrees centigrade) and the wind speed (V, m/sec). Several 
modifications were necessary in order to use the wind chill index 
for this application. First, the base wind speed was increased to 4 
mi/hr (1.788 m/sec), since the index is set for a person at normal 
walking speed. Second, the index is calibrated for anemometer 
measured winds, so the ceiling fan speed had to be increased to 
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account for the height of a standard anemometer (divided by 0.57). 
(See ref . 4.) Once this is done, the cooling index matches Fanger's 
comfort equation (see ref. 1). 

I measured the wind speed of several ceiling fans with a 
commercial hot wire anemometer and found the speed to be about 
1 m/sec. If you know the wind speed of your prospective fan, then 
you should alter line 70 Gine 40 in the Atari version, line 50 in the 
Color Computer version, or line 75 in the TI version) accordingly. 
The effect of increasing the air conditioning thermostat by DF 
degrees is calculated in line 240 (line 230 in the Atari version, line 
220 in the Color Computer version, or line 243 in the TI version). 
This formula is based on the Federal Energy Administration 
algorithm (see ref. 3) which uses the utility cost rather than the fuel 
amount. Because of this, the program will accept any cooling fuel 
(e.g., electricity, natural gas, etc.). 

The cost of operating a ceiling fan is usually about the same 
as the cost of operating a moderately sized light bulb. However, for 
the purpose of completeness, I have allowed for these calculations 
in the program. The user can input the current used by the fan, the 
number of hours the fan is used per day, and the number of days 
used in a calendar year. The default values used are 0.5 amps, 6 
hrs/day, and 100 days. 

References 

1 . ASHRAE Handbook of Fundamentals. New York: American Society of 
Heating, Refrigerating and Air Conditioning Engineers, Inc., 1972. 

2. Dare, P.M. "A Study of the Severity of the Midwestern Winters of 1977 
and 1978 Using Heating Degree Days Determined from Both Measured 
and Wind Chill Temperatures." Bulletin of the American Meteorological 
Society, vol 62, July 1981. 

3. Home Energy Saver's Workbook. FEA/D-77/1 17. Washington, D. C: 
Government Printing Office, 1977. 

4. Steadman, R. G. "Indices of Windchill of Clothed Persons." Journal of 
Applied Meteorology, vol. 10, 1971, pp. 674-683. 
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Sample Run. 



CEILING FAN ANALYSIS 

SAVINGS IN AIR CONDITIONING 
AND COST OF OPERATING FAN WILL BE CALCULATED 



ANY COOLING FUEL (E.G., ELECTRICITY, NAT. GAS) IS OK. 

IS COOLING FUEL USED FOR OTHER PURPOSES (E.G., LIGHTING)? Y 

ANMJAL COOLING FUEL COST (DOLLARS)? 526 

TEMP <DEG F) CURRENTLY SET FOR AIR CONDITIONER? 76 

COST FOR ELECTRICITY, CENTS/KIkM? 6.55 

HIT <RETURN> IF REQUESTED QUANTITY IS UNKNOWN 

AMPS DRAWN BY CEILING FAN? 0.5 

« DAYS PER YEAR FAN IS IN OPERATION? 100 

« HOURS PER DAY FAN IS IN OPERATION? 6 

ANNUAL COST OF OPERATING FAN - •2.35 



YOU MAY INCREASE YOUR THERMOSTAT TO 79 DEGREES F 
AI«4UAL A/C SAVINGS -> «24.57 



Program 1 . OSI Version* 

10 REM CEILING FAN T^ALYSIS 
30 DEFFNTRC(e)=INT(E*100)/100 
40 DEFFNRDD(F)=INT(F+.99) 

50 POKE2888,0:POKE8722,0:REM SET CR FOR N 

ULL INPUT =0 
6 FORI=1TO20 : PRINT : NEXT : PRINTTAB ( 2 5 ) ; " CE 

ILING FAN ANALYSIS" 
7 PRINT : PRINT : PRINT : PRINT : X= . 6 : V=l 
80 PRINTTAB(22) 7 "SAVINGS IN AIR CONDITION 

ING" 

90 PRINTTAB(15) 7 "AND COST OF OPERATING FA 
N WILL BE CALCULATED" 
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100 PRINT : PRINT : GOSUB280 : PRINT : PRINT 

110 PRINT"ANY COOLING FUEL (E.G. ELECTRICI 

TY, NAT GAS) IS OK" 
120 PRINT: PRINT" IS COOLING FUEL USED FOR O 

THER PURPOSES (E.G. LIGHTING)"; 
130 INPUTB$:IFASC(B$)=78THENX=1 
140 PRINT: INPUT "ANNUAL COOLING FUEL COST ( 

DOLLARS ) " ; CS : CS=CS*X 
150 PRINT :INPUT"TEMP (DEG F) CURRENTLY SET 

FOR A/C";TF 
160 T=(TF+40)*5/9-40:PRINT 

170 INPUT"COST FOR ELECTRICITY, CENTS/KWH" 

; C : C=C/ 100 : GOSUB280 : PRINT 
180 PRINT: PRINT :PRINT"HIT <CR> IF REQUESTE 

D QUANTITY IS UNKNOWN" 
190 PRINT: INPUT "AMPS DRAWN BY CEILING FAN" 

; A: IFA=0THENA= . 5 
200 PRINT: INPUT"* DAYS PER YEAR FAN IS IN 

OPERATION" 7 D: IFD=0THEND=100 
210 PRINT: INPUT"* HOURS PER DAY FAN IS IN 

OPERATION" ; H: IFH=0THENH=6 
220 PRINT: PRINT :GOSUB280: PRINT" ANNUAL "; 
2 30 CO=C*D*H*A* 120/1000 :PRINT"COST OF RUNN 

ING FAN = $";FNTRC(C0) 
240 V=l .788+V/.57:GOSUB280:GOSUB300:DF=DT* 

9/5 :TF=FNRDD(TF+DF) 
2 50 PRINT"YOU MAY INCREASE YOUR THERMOSTAT 

T0";TF7"DEG F" 
260 PRINT"ANNUAL A/C SAVINGS = $";FNTRC(CS 

*DF*.03) :GOSUB280 
270 END 

280 PRINT" 



290 PRINT" ": RETURN 

300 DT=T-33-(l0*SQR(V)+10.45-V)*(T-33)/22. 

03:1 FDT < 0THENDT=0 
310 RETURN: REM DT=EFFECTIVE DECREASE IN TE 

MP(C) DUE TO WIND (V=M/SEC) 
320 REM T=DEG CENTIGRADE, TF=DEG FAHRENHEI 

T 
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330 REM A=AMPS, D=# DAYS, H=# HOURS/DAY 
340 REM X=REDUCTION IN UTILITY COST TO ACC 

OUNT FOR USES OTHER 
350 REM THAN COOLING. 

360 REM DF=EFFECTIVE DECREASE IN TEMP (DEG 
F) DUE TO WIND. 



Program 2. VIC Version. 

10 REM CEILING FAN ANALYSIS VIC VERSION 

30 DEF FNTRC(E) =INT(E*100)/100 

40 DEF FNRDD(F) =INT(F+.99) 

60 PRINT" {CLEAR} CEILING FAN ANALYSIS" 

7 PRINT" {02 D0WN}":X=.6:V=1 

80 PRINT" SAVINGS IN AIRCONDITIONI 

NG AND COST OF OPERATING FAN" 
9 PRINT" WILL BE CALCULATED" 
100 PRINT:GOSUB280:PRINT 

110 PRINT"ANY COOLING FUEL (E.G. ELECTRIC 

ITY, NAT GAS) IS OK" 
120 PRINT:PRINT"IS COOLING FUEL USED FOR OTHE 

R PURPOSES" : INPUT" (E.G. LIG HTING ) " ; B$ 

130 IFASC(B$)=78THENX=1 

140 CS=0:PRINT:PRINT"ANNUAL COOLING FUEL" : INPU 

T"COST (DOLLARS) ";CS:CS=CS*X 
150 TF=0: PRINT: PRINT"TEMP (DEG F) CURRENTLY" : IN 

PUT" SET FOR A/C";TF 
160 T= (TF+40) *5/9-40;PRINT 

170 C=0:PRINT"COST FOR ELECTRICITY ,": INPUT" CEN 
TS/KWH" ; C:C=C/100 : PRINT" {CLEAR} " 

180 PRINT"HIT <CR> IF REQUESTED QUANTITY IS UN 
KNOWN" :GOSUB280 : PRINT 

190 A=. 5:PRINT"AMPS DRAWN BY CEI LING" : INPUT" FA 
N"; A 

200 D=100:PRINT:PRINT"# DAYS PER YEAR FAN" : INP 

UT"IS IN OPERATION" ;D 
210 H=6:PRINT:PRINT"# OF HRS PER DAY FAN" : INPU 

T"IS IN OPERATION"; H 
220 PRINT" {CLEAR} ":PRINT"ANNUAL "; 
230 CO=C*D*H*A*120/1000:PRINT"COST OF RUNNING " 

FAN = $";FNTRC(CO) 
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240 V=1.788+V/.57 :GOSUB280 :GOSUB300 : DF=DT*9/5 : 

TF=FNRDD(TF+DF) 
2 50 PRINT" YOU MAY INCREASE YOUR THERMOSTAT TO" 

;TF;"DEG F" 

2 60 PRINT" ANNUAL A/C SAVINGS = $ " ; FNTRC (CS*DF 

*.03) :GOSUB280 
270 END 

280 PRINT" ": RETURN 

3 00 DT=T-33-(10*SQR(V)+10.45-V)* (T-33)/22.03:I 

FDT<0THENDT=0 
310 RETURN 



Programs. Microsoft Version. 

10 REM CEILING FAN ANALYSIS 
30 DBF FNTRC(E)=INT(E*100)/100 
40 DEF FNRDD(F)=INT(F+.99) 

60 PRINT" {clear} ceiling FAN ANALYSI 

S" 

70 PRINT" {02 down} ":X=.6:V=1 

80 PRINT"SAVINGS IN AIR CONDITIONING AND COST 

OF OPERATING FAN"; 
90 PRINT" WILL BE CALCULATED" 
100 PRINT :GOSUB280: PRINT 

110 PRINT" ANY COOLING FUEL (E.G. ELECTRICITY, 

NAT GAS) IS OK" 
120 PRINT: PRINT" IS COOLING FUEL USED FOR OTHER 

PURPOSES" : INPUT" (E.G. LIGHTING) "; B$ 
130 IFASC(B$)=78THENX=1 

140 CS=0: PRINT: INPUT" ANNUAL COOLING FUEL COST 

( DOLLARS ) " ; CS : CS=CS*X 
150 TF=0: PRINT :INPUT"TEMP(DEG F) CURRENTLY SET 

FOR A/C";TF 
160 T=(TF+40)*5/9-40:PRINT 

170 C=0: INPUT "COST FOR ELECTRICITY, CENTS/KWH" 

;C:C=C/100: PRINT" {CLEAR} " 
180 PRINT"PRESS <CR> IF REQUESTED QUANTITY": PR 

INT" IS UNKNOWN" :GOSUB280: PRINT 
190 A=. 5: INPUT "AMPS DRAWN BY CEILING FAN"; A 
200 D=100: PRINT: INPUT"* DAYS PER YEAR FAN IS I 

N OPERATION" ;D 
210 H=6: PRINT: INPUT"* OF HRS PER DAY FAN IS IN 
OPERATION" ;H 

234 
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220 PRINT" {clear} ": PRINT "ANNUAL "; 

230 CO=C*D*H*A*120/1000:PRINT"COST OF RUNNING 

FAN = $";FNTRC(CO) 
240 V=l . 788+v/ . 57 :GOSUB280 :GOSUB300 :DF=DT*9/5 ; 

TF=FNRDD(TF+DF) 
2 50 PRINT "YOU MAY INCREASE YOUR THERMOSTAT TO" 

:PRINTTF; "DEG F" 
260 PRINT" ANNUAL A/C SAVINGS = $ " ; FNTRC ( CS*DF 

*.03) :GOSUB280 
270 END 

280 PRINT" 

": RETURN 

300 DT=T-33-(l0*SQR(V)+10.45-V)*(T-33)/22.03:I 

FDT<0THENDT=0 
310 RETURN 



Program 4« Atari Version. 

10 REM **» CEILING FAN ANALYSIS »«* 

20 REM *«« ATARI VERSION *«» 

30 POKE 82,2:P0KE 752,1s? CHR*(125):P 

OKE 85,9s? " EgBBiyCElifflCiECffl^ 
40 ? s? s X=0. 6s V=l s DIM B* ( 1 ) 
50 POKE 85,5s? "SAVINGS IN AIR-CONDIT 

lONING, " 

60 POKE 85,8s? "AND COST OF OPERATING 
II 

70 POKE 85, Bs? "FAN WILL BE CALCULATE 

D" : ? : ? : 60SUB 270 
80 ? :? :? "ANY COOLING FUEL IS OK":? 
"(E.G., ELECTRICITY, NATURAL GAS) 

II 

90 ? :? "IS COOLING FUEL USED FOR OTH 
ER":? "PURPOSES (E.G., LIGHTING), 
Y OR N"; 

lOO INPUT B*:IF B«="N" THEN X=l 

no ? :POKE 85,1:? "ANNUAL COOLING FU 

EL COST (DOLLARS) ";: INPUT CS:CS=C 

S»X 

120 ? :? "TEMP (DEG F) CURRENTLY SET 
ON":? "AIR CONDITIONER" ;: INPUT TF 
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130 T= <TF+40) «5/9-40: ? 

140 ? "COST FOR ELECTRICITY, CENTS/KW 

H";: INPUT C : C=C/ 1 00 s GOSUB 270 
150 ? :7 :? "ENTER O (ZERO) IF REQUES 

TED":? "QUANTITY IS UNKNOWN" 
160 ? :? "AMPS DRAWN BY CEILING FAN"; 

: INPUT A: IF A=0 THEN A=0.5 
170 ? :? "# DAYS PER YEAR FAN IS IN": 

? "OPERATION" ;: INPUT D:IF D=0 THE 

N D=100 

ISO ? :? "# HOURS PER DAY FAN IS IN": 
? "OPERATION" ;: INPUT H:IF H=0 THE 
N H=6 

190 ? :? : GOSUB 270 

200 C0=C*D«H«A»120/1000: ? "ANNUAL COS 
T OF OPERATING":? "FAN = «";INT(C 
0«100) /lOO 

210 V=l . 788+V/O. 57: GOSUB 270 

220 GOSUB 280 

230 DF = DT«9/5: TF=INT ( < TF + DF ) +0 - 99 ) 
240 ? "YOU MAY INCREASE YOUR THERMOST 

AT TO" : ? TF; " DEG F" 
250 ? "ANNUAL A/C SAVINGS = *";INT((C 

S»DFtO. 03) » lOO) / lOO: GOSUB 270: GOS 

UB 270 
260 END 

270 POKE 85,0: FOR 1=1 TO 40:? "-";:NE 

XT I: RETURN 
280 DT=T-33- < 1 O *SQR ( V ) + 1 O . 45-V ) » (T-33 

)/22.03:IF DT<0 THEN DT=0 
290 RETURN 

300 REM ttttt*t**tttttt*t**t*ttt**t*t 

310 REM DT=EFFECTIVE DECREASE IN TEMP 
(C) DUE TO WIND <V=M/SEC) 

320 REM T=DEG CENTIGRADE, TF=DEG FARE 
NHEIT, A=AMPS, D=# DAYS,H=# HOURS 
/DAY 

330 REM X=REDUCTION IN UTILITY COST T 
O ACCOUNT FOR USES OTHER THAN COO 
LING 

340 REM DF=EFFECTIVE DECREASE IN TEMP 
<DEG F) DUE TO WIND. 
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Program 5* Color Computer Version. 

10 REM CEILING FAN ANALYSIS - COLOR COMPUTER ~ 
VERSION 

30 DEFFNTRC(E)=INT(E*100)/100 
35 DEFFNRDD(F)=INT(F+.99) 

40 CLS:PRINTTAB(5) ; "CEILING FAN ANALYSIS" 
50 PRINT: PRINT :X=- 6 :V=1 

60 PRINT "SAVINGS IN AIR CONDITIONING," 
70 PRINT "AND COST OF OPERATING" 

80 PRINT "FAN WILL BE CALCULATED" : PRINT : G0SUB2 
60:PRINT 

90 PRINT"ANY COOLING FUEL IS OK" : PRINT" (E .G . 

ELECTRICITY, NATURAL GAS) " 
100 PRINT:PRINT"IS COOLING FUEL USED FOR OTHER 

" :PRINT"PURPOSES (E.G. LIGHTING"; 
110 INPUTB? :IFASC(B$ )=78THENX=1 

120 PRINT: PRINT" ANNUAL COOLING FUEL COST":INPU 

T " (DOLLARS ) " ; CS : CS=CS*X 
130 PRINT: PRINT "TEMP (DEG F) CURRENTLY SET FOR 

" : INPUT"AIRCONDITIONER" ; TF 
140 T=(TF+40)*5/9-40:PRINT 

150 PRINT"COST FOR ELECTRICITY, ": INPUT"CENTS/K 

WH" 7 C : C=C/ 100 : GOSUB260 : PRINT 
160 PRINT: PRINT :PRINT"HIT <ENTER> IF REQUESTED 

":PRINT"QUANTITY IS UNKNOWN" 
170 PRINT :INPUT"AMPS DRAWN BY CEILING FAN"; A: I 

FA=0THENA= . 5 
180 PRINT: PRINT"* DAYS PER YEAR FAN IS IN" : INP 

UT"OPERATION" ; D : IFD=0THEND=100 
190 PRINT: PRINT"* HOURS PER DAY FAN IS IN": INP 

UT"OPERATION" ; H: IFH=0THENH=6 
200 PRINT: PRINT :GOSUB260: PRINT "ANNUAL "; 
210 CO=C*D*H*A*120/1000:PRINT"COST OF OPERATIN 

G":PRINT"FAN = $ " ; INT(CO*100 ) /l00 

2 20 v=l .788+v/.57:gosub260:gosub280:df=dt*9/5: 

tf=fnrdd(tf+df) 
2 30 print"you may increase your thermostat to" 

;TF; "DEG F" 

240 PRINT "ANNUAL A/C SAVINGS = $ "; FNTRC(CS*DF* 

.03) :GOSUB260 
2 50 END 

260 PRINT" " 

2 70 RETURN 
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280 DT=T-33-(l0*SQR(V)+10.45-V)*(T-33)/22.03:I 

FDT<0THENDT=0 
290 RETURN: REM EFFECTIVE DECREASE IN TEMP(C) D 

UE TO WIND (V=M/SEC) 
300 T=DEG C, TF=DEG F^ DF=EFFECTIVE DECREASE I 

N TEMP (DEG F) DUE TO WIND 
310 REM X=REDUCTION IN UTILITY COST TO ACCOUNT 
FOR USES OTHER THAN COOLING 



Program 6* TI-99 Version* 

10 REM ceiling fan analysis 
30 DEF TRC<E)=INT<E»100) /lOO 
40 DEF RDD <F) =INT <F+. 99) 
60 CALL CLEAR 

63 PRINT "<:4 SPACES>cei 1 i ng -fan analy 
sis": s s 5 : s 

74 X=.6 

75 V=l 

80 PRINT "savings in ai rcond i t i on i ng " 
90 PRINT "and cost o-F operating fan 

<:3 SPACES>will be calculated": : : 

102 GOSUB 280 

103 PRINT : s 

110 PRINT "any cooling fuel 

<:12 SPACES><e.g- electricity, nat 

gas) is ok"s : 
121 PRINT "is cooling fuel used for 

<:4 SPACES>other purposes (e-g- 

ia SPACES3 1 ighting) "; 

130 INPUT B* 

131 IF ASC<B*)=121 THEN 140 

132 IF ASC<B*)=89 THEN 140 
135 X=l 

140 PRINT 

141 INPUT "annual cooling fuel cost 
<:4 SPACES> (dol 1 ar s) ? " : CS 

142 CS=CS*X 

150 PRINT 

151 INPUT "temp (deg f) currently set 

for a/c ?":TF 
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1 6»0 


T= \ TF-*-40) »3/V — 40 






1 o 1 


fH INI 






170 


INPUT "cost for electricity, 
1/ orftLrfc.oJ'CentlS/KWn r SLr 






1/1 


Lr — U / 1 U U 






1/2 


GOSUB 280 




1 /o 


P rC INT s : : 






182 


PRINT "enter <0> if requested 
antity is unknown" s : 


qu 




1 V 1 


iNr'Ui amps drawn oy ceiling 


T an 




1 V X- 


?" ! A 

In H*%^v/ iric.N 






1 V3 










rK 1 N 1 






20 1 


INPUT wdays per year fan is 


i n 






xH or fiUtio J" oper an 1 on r su 






«-J 


Ir Us ->U 1 Hk.N 21U 






y% KT 

205 


D= 1 00 




2 1 U 


rK 1 N 1 






oil 
211 


iNrUi n nours per day ran is 


i n 






13 SPrues> oper at 1 on ? sH 




212 


TC LA V T 1 1 f— k 1 

IP H< >0 THEN 220 






215 
220 
222 


H = 6 

PRINT : s 
uUoUJd 2oU 






223 
225 


PRINT "annual " ; 
CO=C»D*H*A* 120/ 1000 






"7 <^ 
2oU 


Y Y== I KL# \ CU } 






2o 1 


UU~Lr»U»M*R»12U / lOUU 
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PRINT "cost of running fan = 

Y 


«" ; Y 




240 
24 1 


V=l-788-«-V/.57 
GOSUo 2dO 






2'f 2 








243 


DP = DT * *7 / 5 






244 


TP=KDD \TP+DP} 




2DU 


PRINT "you may increase your 








1/ SPfiCESJ-tnermostat to jTPj 


d e 




c: 
25*7 


g f" 

YY = TRU lUoVDr • • 03/ 






260 


PRINT "annual a/c savings = * 


.. . YY 
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261 GOSUB 280 
270 END 

280 PRINT " 

291 RETURN 

300 DT = T-33-<10*SQR(V>+10.45-V) » <T-33 
) /22. 03 

301 IF DT>0 THEN 310 
305 DT=0 

310 RETURN 

311 REM dt = e-f f ect i ve decrease in temp 
<c) due to wind (v=m/sec) 

320 REM t = deg centigrade, t-f = deg -fa 
r enhei t 

330 REM a^amps, d=# days, h=# hours 
/day 

340 REM x=reduction inCS SPACES>util 
ity cost to account -for uses othe 
r than cooling. 

360 REM d-f =ef f ect i ve decrease in temp 
<deg f> due to wind-<:3 SPACES> 
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Appendix 



Many of the programs which are listed in this book contain special 
control characters (cursor control, color keys, inverse video, etc.). 
To make it easy to tell exactly what to type when entering one of 
these programs into your computer, we have established the 
following listing conventions. There is a separate key for each 
computer. Refer to the appropriate tables when you come across 
an unusual symbol in a program listing. If you are unsure how to 
actually enter a control character, consult your computer*s 
manuals. 



Atari 400/800 

Characters in inverse video will appear like: 
Enter these characters with the Atari logo key, (A). 



IHUERSE VIDE 





When you see 


Type 


See 






<CLEAR> 


ESC 


SHIFT < 


IS 


Clear Screen 




<UP> 
<DOWN> 


ESC 
ESC 


CTRL - 
CTRL = 


* 


Cursor Up 
Cursor Down 




CLEFT> 


ESC 


CTRL + 


<- 


Cursor Left 


<RIGHT> 


ESC 


CTRL » 


-> 


Cursor Right 




<BACK S> 


ESC 


DELETE 


4 


Bac kspace 




<DELETE> 


ESC 


CTRL DELETE 


U 


Delete Character 


<INSERT> 


ESC 


CTRL INSERT 


U 


Insert Character 




^DEL LINE> 


ESC 


SHIFT DELETE 


Ed 


Delete Line 


<INS LINE> 


ESC 


SHIFT INSERT 


□ 


Insert Line 




<TAB> 


ESC 


TAB 


► 


TAB key 




iCLR TAB> 


ESC 


CTRL TAB 




Clear TAB 




<SET TAB> 


ESC 


SHIFT TAB 


□ 


Set TAB stop 




CBELL> 


ESC 


CTRL 2 




Ring Buzzer 


<ESC> 


ESC 


ESC 




ESCape key 



Graphics characters, such as CTRL-T, the ball character • will 
appear as the "normal" letter enclosed in braces, e.g. {T}. 

A series of identical control characters, such as 10 spaces, 
three cursor-lefts, or 20 CTRL-R*s, will appear as { 10 SPACES}, -{3 
LEFT}, {20 R}, etc. If the character in braces is in inverse video, 
that character or characters should be entered with the Atari logo 
key. For example, {H } means to enter a reverse-field heart with 
CTRL-comma, {5 H] } means to enter five inverse-video CTRL-U's. 
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Commodore PET/CBM/VIC/64 

Unless there are separate program listings, use the program titled 
"Microsoft Version" for all PET/CBM models and the Commodore 
64. 

Generally, any PET/CBM/VlC/64 program listings will 
contain bracketed words which spell out any special characters: 
{DOWN} would mean to press the cursor-down key; {3D0WN} 
would mean to press the cursor-down key three times. 

To indicate that a key should be shifted (hold down the SHIFT 
KEY while pressing the other key), the key would be underlined in 
our listing. For example, S. would mean to type the S key while 
holding the shift key. This would result in the "heart" graphics 
symbol appearing on your screen. Some graphics characters are 
inaccessible from the keyboard on CBM Business models (32N, 
8032). 

Sometimes in a program listing, especially within quoted text 
when a line runs over into the next line, it is difficult to tell where 
the first line ends. How many times should you type the SPACE 
bar? In our convention, when a line breaks in this way, the ^ 
symbol shows exactly where it broke. For example: 

100 PRINT "TO START THE GAME " 
YOU MAY HIT ANY OF THE KEYS 
YOUR KEYBOARD. 

shows that the program's author intended for you to type two 
spaces after the word GAME. 



Clear Screen { CLEAR} 
Home Cursor {hoME} 
Cursor Up {UP} 
Cursor Down { DOWN} 
Cursor Right {RIGHT} 



Cursor Left 


{left! 


Insert Character 


{inst} 


Delete Character 


{del} 


Reverse Field On 


{rvs} 


Reverse Field Off 


{off} 
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Apple ll/Apple II Plus 

Except in those cases where a special Apple version is provided, 
use the Microsoft version. The only required modifications are to 
the cursor control commands. 



PET/CBM command 

{CLEAR} 
{DOWN} 

{RIGHT} 
{LEFT} 



Apple equivalent 

HOME 
PRINT 
(Apple II + : CALL -922) 
PRINT CHR$(21) 
PRINT CHR$(8) 



For example, 

PET/CBM: 
Apple: 

PET/CBM: 
Apple: 



10 PR1NT"{CLEAR} message" 
10 HOME:PRINT" message" 

20 PRINT"{ 02 DOWN} message" 
20 PRINT:PRINT:PRINT" message" 



TRS-80 Color Computer 

No special characters are used. 

Texas Instruments 99/4 

The only special control characters used are in PRINT statements 
to indicate where two or more spaces should be left between 
words. For example, ENERGY { 10 SPACES} MANAGEMENT 
means that ten spaces should be left between the words ENERGY 
and MANAGEMENT. Enter all programs with the ALPHA lock on 
(in the down position). Release the ALPHA lock to enter lowercase 
text. 
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Notes 



If you've enjoyed the articles in this book, you'll find the 
same style and quality in every monthly issue of COMPUTE! 
Magazine. Use this form to order your subscription to 
COMPUTE! 



For Fastest Service, 
Call Our Toil-Free US Order Line 

800-334-0868 

In NC call 919-275-9809 



COMPUTE! 

P.O. Box 5406 
Greensboro, NC 27403 

My Computer Is: 

□ PET DApple DAtari nviCDOther DDon'tyet hove one... 

□ $20.00 One Year US Subscription 

□ $36.00 Two Year US Subscription 

□ $54.00 Three Year US Subscription 

Subscription rates outside tlie US: 

□ $25.00 Canada f=2 

□ $38.00 Europe/Air Delivery fi=3 

n $48.00 Middle East North Africa Central America/Air Mail fi=5 

□ $88.00 South America South Africa Australasia/Air Mail fi=7 

n $25.00 International Surface Moil (lengthy, unreliable delivery) fi= 4,6,8 

Name 



Address 



City State Zip 

Country 

Payment must be in US Funds drawn on a US Bank; International Money 
Order, or charge card. 

□ Payment Enclosed □ VISA 

□ MasterCard □ American Express 
AcctNo. Expires / 
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COMPUTE! Books 

P.O. Box 5406 Greensboro, NC 27403 

Ask your retailer for these COMPUTE! Books. If he or she 
has sold out order directly from COMPUTE! 

For Fastest Service 
Call Our TOLL FREE US Order Line 

800-334-0868 

In NC call 919-275-9809 
Quantity Title Price Total 

The Beginner's Guide To 

Buying A Personal Computer $ 3.95 

(Add $1.00 shipping and handling. Outside US add 
$4.00 air mail; $2.00 surface mail.) 

COMPUTEi's First Book Of Atari $12.95 

[Add $2.00 shipping and handling. Outside US add 
$4.00 air mail; $2.00 surface mail.) 

Inside Atari DOS $19.95 

(Add $2.00 shipping and handling. Outside US add 
$4.00 air mail; $2.00 surface mail.) 

COi^PUTEi's First Book of 

PET/CBM $12.95 

[Add $2.00 shipping and handling. Outside US add 
$4.00 air mail; $2.00 surface mail.) 

Programming the PET/CBM $24.95 

[Add $3.00 shipping and handling. Outside US add 
$9.00 air mail; $3.00 surface mail.) 

Every Kid's First Book Of 

Robots and Computers $ 4.95 

[Add $1.00 shipping and handling. Outside US add 
$4.00 air mail; $2.00 surface mail.) 

COiVIPUTEi's Second Book Of 

Atari $12.95 

[Add $2.00 shipping and handling. Outside US add 
$4.00 air mail; $2.00 surface mail.) 

COMPUTEI'S First Book of VIC $12.95 

[Add $2.00 shipping and handling. Outside US add 
$4.00 air mail; $2.00 surface mail.) 

All orders must be prepaid (money order, check or charge). All 
payments must be in US funds. NC residents add 4% sales tax. 

□ Payment enclosed Please charge my: □ VISA □ MasterCard 

□ American Express Acct No. Expires / 

Name 

Address 

City State Zip 

Country 

Allow 4-5 weeks for delivery. 
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I ave your heating costs been increasing by 30% or more each year? 
Are you considering storm windows, a clock thermostat, more insulation, 
caulking, weatherstripping, or other defensive measures against the 
upward spiral of utility costs? 

Once you give the information on your geographical area, your 
current expenses, and details about your house itself, this book and your 
personal computer will provide an in-depth, specific, objective report on 
what you can do to significantly reduce your home energy costs. 

Since everyone's home is different and there are great variations in 
climatic conditions in the United States, it is often difficult to determine 
which of many alternatives is the best way to go about reducing energy 
consumption. These programs, utilizing the particular characteristics of 
your house together with the climate in your area, report projected 
savings for the homeowner. The effects of a great variety of different 
energy-saving impirovements at locations anywhere within the 
contiguous 48 states are analyzed and forecast in complete, 
understandable reports. 

Each chapter in this book is designed to explore a major aspect of 
home energy consumption. Chapters begin with a discussion of the 
methods and merits of a particular kind of energy analysis. Following 
that is a computer program translated into versions for each of these 
popular home computers: VIC, Atari, Apple, TI-99/4A, Commodore 64, 
Radio Shack Color Computer, PET/CBM, and OSl. Your computer will 
generate graphs, reports, and analyses. You can then use this information 
and the forecasts and suggested plans of attack to look at projected 
savings, together with costs and the current economic outlook. Then 
decide if each approach meets your criteria for a worthwhile investment. 

Here's a major personal financial problem which can directly benefit 
from the speed and power of your personal computer. It's one of the 
fastest ways to make the computer pay for itself. When friends and 
neighbors find out what you're up to, don't be surprised if they ask you 
for a home energy analysis too. In most cases, these programs can result 
in very impressive savings. 

— From the Introduction 
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